X-Git-Url: http://git.kpe.io/?p=irc-logger.git;a=blobdiff_plain;f=logger.lisp;h=7c341299b3d07f120ed3c9b436477dbbd18197f4;hp=26c78f55ac2350e51b524c6bf5bff87b36382a8e;hb=63356535fbaa1b651d525e81befd6efd4b49016e;hpb=a1b6f3f3d596070417ced73efe363830d9b13007

diff --git a/logger.lisp b/logger.lisp
index 26c78f5..7c34129 100644
--- 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