From: Daiki Ueno Date: Thu, 24 Feb 2005 06:36:32 +0000 (+0000) Subject: * riece-unread.el (riece-unread-after-switch-to-channel-function): X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=7877a1b514adc0f2188e82b113c673a20b9f0220 * riece-unread.el (riece-unread-after-switch-to-channel-function): Clear riece-unread-channels case insensitively. --- 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