Update of /project/beirc/cvsroot/beirc In directory common-lisp:/tmp/cvs-serv23794

Modified Files: application.lisp Log Message: Only highlight the tab when an interesting message appears.

--- /project/beirc/cvsroot/beirc/application.lisp 2006/01/27 22:35:57 1.35 +++ /project/beirc/cvsroot/beirc/application.lisp 2006/01/30 18:56:00 1.36 @@ -246,11 +246,15 @@ (text (or (irc:trailing-argument message) ""))) (search my-nick text)))

+(defun interesting-message-p (message) + (typep message '(or irc:irc-privmsg-message irc:irc-topic-message irc:irc-kick-message irc:ctcp-action-message))) + (defun post-message-to-receiver (frame message receiver) (setf (messages receiver) (append (messages receiver) (list message))) (unless (eql receiver (current-receiver frame)) - (incf (unseen-messages receiver)) + (when (interesting-message-p message) + (incf (unseen-messages receiver))) (when (message-directed-to-me-p frame message) (incf (messages-directed-to-me receiver)))) (update-drawing-options receiver)