[beirc-cvs] CVS update: beirc/beirc.lisp

[Andreas Fuchs]

Update of /project/beirc/cvsroot/beirc
In directory common-lisp.net:/tmp/cvs-serv14230

Modified Files:
	beirc.lisp 
Log Message:
don't display PING messages.

The *Server* buffer should only light up if something important happens, now. 

Date: Sat Sep 24 20:14:28 2005
Author: afuchs

Index: beirc/beirc.lisp
diff -u beirc/beirc.lisp:1.25 beirc/beirc.lisp:1.26
--- beirc/beirc.lisp:1.25	Sat Sep 24 20:13:44 2005
+++ beirc/beirc.lisp	Sat Sep 24 20:14:28 2005
@@ -212,7 +212,8 @@
     cl-irc:irc-rpl_endofinfo-message
     cl-irc:irc-rpl_endofstats-message
     cl-irc:irc-rpl_endofwho-message
-    cl-irc:irc-rpl_endofexceptlist-message))
+    cl-irc:irc-rpl_endofexceptlist-message
+    cl-irc:irc-ping-message))
 
 (defmethod receiver-for-message ((message irc:irc-message) frame)
   (server-receiver frame))