X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=blobdiff_plain;f=logger.lisp;h=f186916eef3175e2472aebf091072bd21a807011;hp=71b0723f18f5d48bbf7f2f24f66c28bbda2e746b;hb=460aef96a391eae776da6a28929d6c4fcdc43e31;hpb=c099ce5b24762d430a73dfc9c99e65783933ccc6

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)))