From: yoichi <yoichi>
Date: Sat, 17 May 2003 17:10:52 +0000 (+0000)
Subject: * elmo-msgdb.el (elmo-msgdb-overview-entity-get-extra-field):
X-Git-Tag: merged-trunk-to-elmo-mark-18~23
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c732eca32d6aa74b3058be6823954aeb04d55a63;p=elisp%2Fwanderlust.git

* 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 930d6b2..dd26df6 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-18  Yoichi NAKAYAMA  <yoichi@geiin.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.
+
 2003-05-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* acap.el, elmo-imap4.el, elmo-nntp.el, elmo-util.el, pldap.el:
diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 3cdf7b2..9bf2a2a 100644
--- 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)