[net-nittin-irc-cvs] CVS update: net-nittin-irc/event.lisp

[Erik Enge]

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)))