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

[Andreas Fuchs]

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)))))))