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

Modified Files: message-display.lisp Log Message: The nickname in method print-message ((message irc:irc-part-message) receiver) will now be presented as such (by calling FORMAT-MESSAGE*).

Date: Fri Oct 7 01:35:20 2005 Author: mretzlaff

Index: beirc/message-display.lisp diff -u beirc/message-display.lisp:1.25 beirc/message-display.lisp:1.26 --- beirc/message-display.lisp:1.25 Wed Oct 5 15:26:04 2005 +++ beirc/message-display.lisp Fri Oct 7 01:35:20 2005 @@ -175,7 +175,9 @@ (formatting-message (t message receiver) ((format t "!!! ~A" (irc:source message))) ((with-drawing-options (*standard-output* :ink +red+ :text-size :small) - (format t "~A ~A :~A" (irc:command message) (irc:arguments message) (irc:trailing-argument message)))))) + (format t "~A ~A :~A" (irc:command message) + (irc:arguments message) + (irc:trailing-argument message))))))

;;; user-related messages

@@ -306,7 +308,7 @@ ((format t " ")) ((with-drawing-options (*standard-output* :ink +gray33+ :text-size :small) (format-message* (format nil "~A Names: ~A" (third (irc:arguments message)) - (irc:trailing-argument message))))))) + (irc:trailing-argument message)))))))

(defmethod print-message ((message irc:irc-part-message) receiver) (formatting-message (t message receiver) @@ -314,7 +316,8 @@ ((with-drawing-options (*standard-output* :ink +gray33+ :text-size :small) (format t "Part: ") (present (irc:source message) 'nickname) - (format t " left ~A: ~A" (first (irc:arguments message)) (irc:trailing-argument message)))))) + (format-message* (format nil " left ~A: ~A" (first (irc:arguments message)) + (irc:trailing-argument message)))))))

(defmethod print-message ((message irc:irc-join-message) receiver) (formatting-message (t message receiver)