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

Simplified.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99c7648..65019f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-07  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-unread.el (riece-unread-after-display-message-function):
+       Simplified.
+
 2003-09-02  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-commands.el (riece-command-join): Extract target

diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index 0f83689..1056ee2 100644 (file)
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -63,9 +63,8 @@
   (unless (or (riece-message-own-p message)
              (equal (riece-message-target message) riece-current-channel))
     (setq riece-unread-channels
-         (delete (riece-message-target message) riece-unread-channels))
-    (add-to-list 'riece-unread-channels
-                (riece-message-target message))
+         (cons (riece-message-target message)
+               (delete (riece-message-target message) riece-unread-channels)))
     (riece-unread-update-channel-list-buffer)))
 
 (defun riece-unread-after-switch-to-channel-function (last)