Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp:/tmp/cvs-serv27877

Modified Files: event.lisp Log Message: Fix breakage where a quit message is sent before join or namreply (typically with bouncens). Suggested by Andreas Fuchs.

--- /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/15 20:22:50 1.16 +++ /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/15 20:42:48 1.17 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.16 2006/02/15 20:22:50 ehuelsmann Exp $ +;;;; $Id: event.lisp,v 1.17 2006/02/15 20:42:48 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $

;;;; See LICENSE for licensing information. @@ -187,8 +187,10 @@ (remove-user channel user))))

(defmethod default-hook ((message irc-quit-message)) - (let ((connection (connection message))) - (remove-user-everywhere connection (find-user connection (source message))))) + (let* ((connection (connection message)) + (user (find-user connection (source message)))) + (unless (null user) + (remove-user-everywhere connection user))))

(defmethod default-hook ((message irc-rpl_channelmodeis-message)) (destructuring-bind