From: bg66 <bg66>
Date: Tue, 17 Jun 2003 04:43:04 +0000 (+0000)
Subject: * riece-unread.el (riece-unread-display-message-function): Check a
X-Git-Tag: riece-0_0-branchpoint~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e98a53f99e7e1e6bb076bcacbe72a0efee0215bc;p=elisp%2Friece.git

* riece-unread.el (riece-unread-display-message-function): Check a
`selected-window'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52ddf28..0dc3260 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-17  OHASHI Akira  <bg66@koka-in.org>
 
+	* riece-unread.el (riece-unread-display-message-function): Check a
+	`selected-window'.
+
 	* riece-mini.el: New add-on.
 	* COMPILE (riece-modules): Add `riece-mini'.
 	* Makefile.am (EXTRA_DIST): Add `riece-mini.el'.
diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index d2e3100..2d1e7f3 100644
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -37,7 +37,9 @@
 
 (defun riece-unread-display-message-function (message)
   (unless (or (riece-message-own-p message)
-	      (equal (riece-message-target message) riece-current-channel))
+	      (equal (riece-message-target message) riece-current-channel)
+	      (eq (window-buffer (selected-window))
+		  (get-buffer riece-command-buffer)))
     (setq riece-unread-channels
 	  (delete (riece-message-target message) riece-unread-channels))
     (add-to-list 'riece-unread-channels