From: ueno <ueno>
Date: Thu, 24 Feb 2005 05:40:52 +0000 (+0000)
Subject: * riece-300.el (riece-handle-353-message): Use
X-Git-Tag: riece-1_0_8~29
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e9c3da4119b0000c5e85f4214bebeae6605b4e1c;p=elisp%2Friece.git

* 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.
---

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  <ueno@unixuser.org>
+
+	* 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  <ueno@unixuser.org>
 
 	* 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)