* riece-unread.el (riece-unread-after-display-message-function):
authorDaiki Ueno <ueno@unixuser.org>
Sun, 7 Sep 2003 00:57:15 +0000 (00:57 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sun, 7 Sep 2003 00:57:15 +0000 (00:57 +0000)
Simplified.

lisp/ChangeLog
lisp/riece-unread.el

index 99c7648..65019f7 100644 (file)
@@ -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
 2003-09-02  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-commands.el (riece-command-join): Extract target
index 0f83689..1056ee2 100644 (file)
@@ -63,9 +63,8 @@
   (unless (or (riece-message-own-p message)
              (equal (riece-message-target message) riece-current-channel))
     (setq riece-unread-channels
   (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)
     (riece-unread-update-channel-list-buffer)))
 
 (defun riece-unread-after-switch-to-channel-function (last)