From 63356535fbaa1b651d525e81befd6efd4b49016e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 4 Jan 2004 13:20:06 +0000 Subject: [PATCH] r8484: support topicwhotime --- logger.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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 -- 2.34.1