[beirc-cvs] CVS beirc

[afuchs]

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)