From: Peter Galbraith <galbraith@mixing.qc.dfo.ca>
Date: Tue, 18 Oct 2005 00:51:43 +0000 (+0000)
Subject: * mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to
X-Git-Tag: emacs-pretest-22.0.90~6529
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fba3b4d83332b793b923e992cb5a9b92d367d544;p=emacs.git

* mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to
compare against header field for mixed-case "From:".
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 19172f1137a..1f37898af76 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,9 @@
+2005-10-17  Peter S Galbraith  <psg@debian.org>
+
+	* mh-identity.el (mh-identity-field-handler): Use
+	`assoc-ignore-case' to compare against header field for mixed-case
+	"From:".
+
 2005-10-17  Bill Wohler  <wohler@newt.com>
 
 	* mh-customize.el (mh-folder-tool-bar-map): Renamed image file
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el
index 1d848344897..c3f34ae75b2 100644
--- a/lisp/mh-e/mh-identity.el
+++ b/lisp/mh-e/mh-identity.el
@@ -124,7 +124,7 @@ The field name is downcased. If the FIELD begins with the character
 `:', then it must have a special handler defined in
 `mh-identity-handlers', else return an error since it is not a valid
 header field."
-  (or (cdr (assoc (downcase field) mh-identity-handlers))
+  (or (cdr (assoc-ignore-case field mh-identity-handlers))
       (and (eq (aref field 0) ?:)
            (error "Field %s - unknown mh-identity-handler" field))
       (cdr (assoc ":default" mh-identity-handlers))