* riece-unread.el (riece-unread-display-message-function): Check a

`selected-window'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52ddf28..0dc3260 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-17  OHASHI Akira  <bg66@koka-in.org>
 
 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'.
        * 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 (file)
--- 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)
 
 (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
     (setq riece-unread-channels
          (delete (riece-message-target message) riece-unread-channels))
     (add-to-list 'riece-unread-channels