* elmo-msgdb.el (elmo-msgdb-overview-entity-get-extra-field):

Convert field-name to lower case.
(elmo-msgdb-overview-entity-set-extra-field): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 92cafb2..a85a60c 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2003-06-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * elmo-msgdb.el (elmo-msgdb-overview-entity-get-extra-field):
+       Convert field-name to lower case.
+       (elmo-msgdb-overview-entity-set-extra-field): Ditto.
+
        * elmo-util.el (elmo-string-member-ignore-case): New function.
        * elmo-imap4.el (elmo-imap4-response-get-selectable-mailbox-list): Use it.
        (elmo-imap4-fetch-callback-1-subr): Likewise.

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 3cdf7b2..9bf2a2a 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -569,12 +569,14 @@ header separator."
   (and entity (car entity)))
 
 (defsubst elmo-msgdb-overview-entity-get-extra-field (entity field-name)
-  (let ((extra (and entity (aref (cdr entity) 8))))
+  (let ((field-name (downcase field-name))
+       (extra (and entity (aref (cdr entity) 8))))
     (and extra
         (cdr (assoc field-name extra)))))
 
 (defsubst elmo-msgdb-overview-entity-set-extra-field (entity field-name value)
-  (let ((extras (and entity (aref (cdr entity) 8)))
+  (let ((field-name (downcase field-name))
+       (extras (and entity (aref (cdr entity) 8)))
        extra)
     (if (setq extra (assoc field-name extras))
        (setcdr extra value)