* 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 19172f1137adb0ac342001af80ddb6f7107cb311..1f37898af76393fa7a9641f031dcdeed68b64a2a 100644 (file)
--- 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 1d848344897f9145b178088182a511e5f0efdbb3..c3f34ae75b215f94b476965d0a635b7f8f2a7adc 100644 (file)
--- 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))