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