r8484: support topicwhotime

diff --git a/logger.lisp b/logger.lisp
index 26c78f55ac2350e51b524c6bf5bff87b36382a8e..7c341299b3d07f120ed3c9b436477dbbd18197f4 100644 (file)
--- a/logger.lisp
+++ b/logger.lisp
@@ -469,6 +469,12 @@
   (output-event msg :rpl_topic (format nil "~{~A~^ ~}" (arguments msg))
                (trailing-argument msg)))
 
+(defun rpl_topicwhotime-hook (msg)
+  (output-event msg :rpl_topicwhotime
+               (format nil "~{~A~^ ~}" (arguments msg))
+               (trailing-argument msg)))
+
+
 (defun invite-hook (msg)
   (let ((logger (find-logger-with-connection (connection msg))))
     (format 
@@ -522,6 +528,7 @@
     (add-hook conn 'irc::irc-rpl_topic-message 'rpl_topic-hook)
     (add-hook conn 'irc::irc-rpl_namreply-message 'rpl_namreply-hook)
     (add-hook conn 'irc::irc-rpl_endofnames-message 'rpl_endofnames-hook)
+    (add-hook conn 'irc::irc-rpl_topicwhotime-message 'rpl_topicwhotime-hook)
     conn))
 
 (defmethod cl-irc::irc-message-event :around ((msg cl-irc::irc-message))
@@ -534,7 +541,8 @@
        irc::irc-pong-message irc::irc-kill-message irc::irc-invite-message
        irc::irc-rpl_killdone-message irc::irc-rpl_closing-message
        irc::irc-rpl_topic-message irc::irc-rpl_namreply-message
-       irc::irc-rpl_endofnames-message)
+       irc::irc-rpl_endofnames-message irc::irc-rpl_topicwhotime-message
+       irc::irc-rpl_motd irc::irc-rpl_motdstart-message irc::irc-rpl_endofmotd-message)
        ;; nothing to do
        )
       (t