From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 29 Mar 2004 18:59:33 +0000 (+0000)
Subject: r8779: fix remove-channel call for new arguments signature
X-Git-Tag: v0.9.3~20
X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=commitdiff_plain;h=460aef96a391eae776da6a28929d6c4fcdc43e31

r8779: fix remove-channel call for new arguments signature
---

diff --git a/logger.lisp b/logger.lisp
index 71b0723..f186916 100644
--- a/logger.lisp
+++ b/logger.lisp
@@ -602,10 +602,12 @@
        (ignore-errors (quit-with-timeout (connection logger) ""))
        (ignore-errors (stop-background-message-handler (handler logger)))
        (sleep 1)
-       (dolist (channel (channels logger))
-	 (let ((c (connection logger)))
-	   (when c
-	     (ignore-errors (remove-channel c (find-channel c (name channel)))))))
+       (ignore-errors
+	 (let* ((c (connection logger))
+		(user (find-user c (nickname logger))))
+	   (when (and c user)
+	     (dolist (channel (channels logger))
+	       (remove-channel user channel)))))
        (ignore-errors (add-private-log-entry logger "Deleting loggers with nick of '~A' [remove-logger]." nick))
        (when (private-log-stream logger)
 	 (close (private-log-stream logger)))