Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv14580
Modified Files: message-display.lisp Log Message: present the sender nickname in ctcp-action messages as unhighlighted-nickname.
Date: Mon Sep 26 11:02:41 2005 Author: afuchs
Index: beirc/message-display.lisp diff -u beirc/message-display.lisp:1.17 beirc/message-display.lisp:1.18 --- beirc/message-display.lisp:1.17 Sun Sep 25 20:19:28 2005 +++ beirc/message-display.lisp Mon Sep 26 11:02:41 2005 @@ -149,7 +149,7 @@ (matter (trailing-argument* message))) (formatting-message (t message receiver) ((format t "*")) - ((present source 'nickname) + ((present source 'unhighlighted-nickname) (format t " ") (format-message* matter :start-length (+ 2 (length source)))))))