Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv16539
Modified Files: event.lisp Log Message: adding client-log on those methods that didn't have it
Date: Mon Nov 3 16:04:43 2003 Author: eenge
Index: net-nittin-irc/event.lisp diff -u net-nittin-irc/event.lisp:1.2 net-nittin-irc/event.lisp:1.3 --- net-nittin-irc/event.lisp:1.2 Mon Nov 3 15:54:10 2003 +++ net-nittin-irc/event.lisp Mon Nov 3 16:04:41 2003 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.2 2003/11/03 20:54:10 eenge Exp $ +;;;; $Id: event.lisp,v 1.3 2003/11/03 21:04:41 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $
;;;; See LICENSE for licensing information. @@ -330,6 +330,7 @@
(defmethod irc-message-event ((message irc-rpl_list-message)) (apply-to-hooks message) + (client-log (connection message) message) (let ((connection (connection message)) (channel (second (arguments message))) (user-count (parse-integer (or (third (arguments message)) "0"))) @@ -370,6 +371,7 @@
(defmethod irc-message-event ((message irc-rpl_topic-message)) (apply-to-hooks message) + (client-log (connection message) message) (setf (topic (find-channel (connection message) (second (arguments message)))) (trailing-argument message))) @@ -412,6 +414,7 @@
(defmethod irc-message-event ((message irc-rpl_namreply-message)) (apply-to-hooks message) + (client-log (connection message) message) (let ((channel (find-channel (connection message) (car (last (arguments message)))))) (dolist (nickname (tokenize-string (trailing-argument message))) (add-user channel @@ -851,11 +854,13 @@
(defmethod irc-message-event ((message irc-quit-message)) (apply-to-hooks message) + (client-log (connection message) message) (let ((connection (connection message))) (remove-user-everywhere connection (find-user connection (source message)))))
(defmethod irc-message-event ((message irc-nick-message)) (apply-to-hooks message) + (client-log (connection message) message) (when (self-message-p message) (setf (nickname (user (connection message))) (trailing-argument message)))