From 0efa81c57d5c4974dcd7ccd9b20657537eb6aabb Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 31 Aug 2000 06:04:46 +0000 Subject: [PATCH] * liece-handle.el (liece-handle-privmsg-message): Fixed. --- lisp/ChangeLog | 4 ++++ lisp/liece-handle.el | 11 +++++++---- 2 files changed, 11 insertions(+), 4 deletions(-) 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 + + * liece-handle.el (liece-handle-privmsg-message): Fixed. + 2000-08-30 Akira Ohashi * 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)) -- 1.7.10.4