From: bg66 <bg66>
Date: Thu, 31 Aug 2000 06:04:46 +0000 (+0000)
Subject: * liece-handle.el (liece-handle-privmsg-message): Fixed.
X-Git-Tag: liece-1_4_4-1~44
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0efa81c57d5c4974dcd7ccd9b20657537eb6aabb;p=elisp%2Fliece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e966457..fb33788 100644
--- 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
--- 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))