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