[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

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