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

[Andreas Fuchs]

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

Modified Files:
	beirc.lisp 
Log Message:
fix printing of /me messages.

Date: Sat Sep 17 18:51:22 2005
Author: afuchs

Index: beirc/beirc.lisp
diff -u beirc/beirc.lisp:1.6 beirc/beirc.lisp:1.7
--- beirc/beirc.lisp:1.6	Wed Sep 14 23:24:00 2005
+++ beirc/beirc.lisp	Sat Sep 17 18:51:21 2005
@@ -674,7 +674,7 @@
 
 (define-beirc-command (com-me :name t) ((what 'mumble))
   (with-slots (connection nick) *application-frame*
-    (let ((m (make-instance 'irc:irc-privmsg-message
+    (let ((m (make-instance 'irc:ctcp-action-message
                             :received-time (get-universal-time)
                             :connection :local
                             :trailing-argument