* mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to

compare against header field for mixed-case "From:".

2 files changed, 7 insertions, 1 deletions

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))