* liece-handle.el (liece-handle-privmsg-message): Fixed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e966457..fb33788 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-31  Akira Ohashi  <bg66@luck.gr.jp>
+
+       * liece-handle.el (liece-handle-privmsg-message): Fixed.
+
 2000-08-30  Akira Ohashi  <bg66@luck.gr.jp>
 
        * liece-commands.el (liece-command-unread-channel): New function.

diff --git a/lisp/liece-handle.el b/lisp/liece-handle.el
index 8574a6f..a1e3ad7 100644 (file)
--- a/lisp/liece-handle.el
+++ b/lisp/liece-handle.el
@@ -191,10 +191,13 @@
       (let ((item (if (eq liece-command-buffer 'chat)
                      liece-current-chat-partner
                    liece-current-channel)))
-       (and (not (liece-channel-equal chnl item))
-            (not (liece-channel-unread-p chnl))
-            (setq liece-channel-unread-list
-                  (cons chnl liece-channel-unread-list))))
+       (if (liece-channel-equal chnl item)
+           ()
+         (and (liece-channel-unread-p chnl)
+              (setq liece-channel-unread-list
+                    (delete chnl liece-channel-unread-list)))
+         (setq liece-channel-unread-list
+               (cons chnl liece-channel-unread-list))))
 
       (and (liece-nick-equal chnl liece-real-nickname)
           (not (liece-nick-equal prefix liece-current-chat-partner))