From: ueno <ueno>
Date: Wed, 21 Jan 2004 00:18:11 +0000 (+0000)
Subject: * riece-identity.el (riece-identity-canonicalize-prefix): Convert
X-Git-Tag: riece-0_1_8~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=28420a1aae431cf1492f8bed0692eb184d366818;p=elisp%2Friece.git

* riece-identity.el (riece-identity-canonicalize-prefix): Convert
characters in prefix to lower case.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 267b88d..8e2f43c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-21  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-identity.el (riece-identity-canonicalize-prefix): Convert
+	characters in prefix to lower case.
+
 2004-01-18  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-misc.el (riece-concat-user-status): New function.
diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index 89e0e21..e254dc3 100644
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -67,7 +67,7 @@ RFC2812, 2.2 \"Character codes\" says:
   "Canonicalize identity PREFIX."
   (let ((i 0)
 	c)
-    (setq prefix (copy-sequence prefix))
+    (setq prefix (downcase prefix))
     (while (< i (length prefix))
       (if (setq c (cdr (assq (aref prefix i)
 			     riece-identity-prefix-case-pair-alist)))