[beirc-cvs] CVS beirc
afuchs
afuchs at common-lisp.net
Mon Jan 30 18:56:00 UTC 2006
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)
More information about the Beirc-cvs
mailing list