From 39a078053cc0a7078edbfcad3aa83dadee41102d Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 24 Feb 2005 06:36:32 +0000 Subject: [PATCH] * riece-unread.el (riece-unread-after-switch-to-channel-function): Clear riece-unread-channels case insensitively. --- lisp/ChangeLog | 3 +++ lisp/riece-unread.el | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cd501f8..0ca347c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2005-02-24 Daiki Ueno + * riece-unread.el (riece-unread-after-switch-to-channel-function): + Clear riece-unread-channels case insensitively. + * riece-300.el (riece-handle-353-message): Use riece-identity-assoc to pick an entry from riece-353-message-alist. diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el index 7e950b8..e11a3f8 100644 --- a/lisp/riece-unread.el +++ b/lisp/riece-unread.el @@ -88,8 +88,9 @@ (defun riece-unread-after-switch-to-channel-function (last) (if riece-unread-enabled (setq riece-unread-channels - (delete riece-current-channel - riece-unread-channels)))) + (delq (car (riece-identity-member riece-current-channel + riece-unread-channels)) + riece-unread-channels)))) (defun riece-unread-format-identity-for-channel-list-buffer (index identity) (if (and riece-unread-enabled -- 1.7.10.4