* riece-alias.el (riece-alias-abbrev-identity-string): Compare car
authorDaiki Ueno <ueno@unixuser.org>
Sat, 10 Sep 2005 12:20:46 +0000 (12:20 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 10 Sep 2005 12:20:46 +0000 (12:20 +0000)
of riece-alias-alist with identities case insensitively.

lisp/ChangeLog
lisp/riece-alias.el

index a36f92b..74790d8 100644 (file)
@@ -1,3 +1,8 @@
+2005-09-10  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-alias.el (riece-alias-abbrev-identity-string): Compare car
+       of riece-alias-alist with identities case insensitively.
+
 2005-09-05  Daiki Ueno  <ueno@unixuser.org>
 
        * Makefile.am (EXTRA_DIST): Added riece-xfaceb.el.
 2005-09-05  Daiki Ueno  <ueno@unixuser.org>
 
        * Makefile.am (EXTRA_DIST): Added riece-xfaceb.el.
index dc11b52..1fd0314 100644 (file)
       (setq string (riece-alias-abbrev-alternate-separator string)))
   (let ((alist riece-alias-alist))
     (while alist
       (setq string (riece-alias-abbrev-alternate-separator string)))
   (let ((alist riece-alias-alist))
     (while alist
-      (if (equal (car (car alist)) string)
+      (if (equal (downcase (car (car alist))) (downcase string))
          (setq string (cdr (car alist))
                alist nil)
        (setq alist (cdr alist)))))
          (setq string (cdr (car alist))
                alist nil)
        (setq alist (cdr alist)))))
 (defun riece-alias-expand-identity-string (string)
   (let ((alist riece-alias-alist))
     (while alist
 (defun riece-alias-expand-identity-string (string)
   (let ((alist riece-alias-alist))
     (while alist
-      (if (equal (cdr (car alist)) string)
+      (if (equal (downcase (cdr (car alist))) (downcase string))
          (setq string (car (car alist))
                alist nil)
        (setq alist (cdr alist)))))
          (setq string (car (car alist))
                alist nil)
        (setq alist (cdr alist)))))