From e9c3da4119b0000c5e85f4214bebeae6605b4e1c Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 24 Feb 2005 05:40:52 +0000 Subject: [PATCH] * riece-300.el (riece-handle-353-message): Use riece-identity-assoc to pick an entry from riece-353-message-alist. (riece-handle-366-message): Ditto. --- lisp/ChangeLog | 7 +++++++ lisp/riece-300.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 136d2af..c95ad43 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2005-02-24 Daiki Ueno + + * riece-300.el (riece-handle-353-message): Use + riece-identity-assoc to pick an entry from + riece-353-message-alist. + (riece-handle-366-message): Ditto. + 2005-02-19 Daiki Ueno * riece-debug.el (riece-funcall-ignore-errors): New function. diff --git a/lisp/riece-300.el b/lisp/riece-300.el index 6a92ac5..eea5bdc 100644 --- a/lisp/riece-300.el +++ b/lisp/riece-300.el @@ -235,7 +235,7 @@ (make-local-variable 'riece-353-message-alist) (if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string) (let* ((channel (match-string 1 string)) - (entry (assoc channel riece-353-message-alist))) + (entry (riece-identity-assoc channel riece-353-message-alist))) (if entry (setcdr entry (concat (cdr entry) @@ -414,7 +414,7 @@ (channel-identity (riece-make-identity channel riece-server-name)) (buffer (riece-channel-buffer channel-identity)) - (entry (assoc channel riece-353-message-alist)) + (entry (riece-identity-assoc channel riece-353-message-alist)) (string (cdr entry)) (start 0) users) -- 1.7.10.4