From 28420a1aae431cf1492f8bed0692eb184d366818 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 21 Jan 2004 00:18:11 +0000 Subject: [PATCH] * riece-identity.el (riece-identity-canonicalize-prefix): Convert characters in prefix to lower case. --- lisp/ChangeLog | 5 +++++ lisp/riece-identity.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * riece-identity.el (riece-identity-canonicalize-prefix): Convert + characters in prefix to lower case. + 2004-01-18 Daiki Ueno * 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))) -- 1.7.10.4