r8351: updates

[irc-logger.git] / logger.lisp

diff --git a/logger.lisp b/logger.lisp
index a1b8f5b2be15b62d2dcce262d8ff7c9674a63068..1382ef49e434480fb596d29794c809abac14f3d6 100644 (file)
--- a/logger.lisp
+++ b/logger.lisp
@@ -222,7 +222,7 @@
       (:kick
        (format stream "-!- ~A [~A] has been kicked from ~A" source user-address channel))
       (:quit
-       (format stream "-!- ~A [~A] has quit [~A]" source user-address text))
+       (format stream "-!- ~A [~A] has quit [~A]" source user-address (if text text "")))
       (:mode
        (format stream "-!- ~A has set mode ~A"  source text))
       (:topic
@@ -269,7 +269,7 @@
   (output-event msg :part (first (arguments msg))))
 
 (defun quit-hook (msg)
-  (output-event msg :quit (trailing-argument msg)))
+  (output-event msg :quit nil (trailing-argument msg)))
 
 (defun join-hook (msg)
   (output-event msg :join (trailing-argument msg)))