# HG changeset patch
# User Peter Galbraith <galbraith@mixing.qc.dfo.ca>
# Date 1129596703 0
# Node ID aec7b3bb973f8092fd44bc63347332cc1c51623f
# Parent  b393a1601bc1743a52c8dd7b9151cc53466aece0
* mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to
compare against header field for mixed-case "From:".

diff -r b393a1601bc1 -r aec7b3bb973f lisp/mh-e/ChangeLog
--- a/lisp/mh-e/ChangeLog	Tue Oct 18 00:29:41 2005 +0000
+++ b/lisp/mh-e/ChangeLog	Tue Oct 18 00:51:43 2005 +0000
@@ -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 -r b393a1601bc1 -r aec7b3bb973f lisp/mh-e/mh-identity.el
--- a/lisp/mh-e/mh-identity.el	Tue Oct 18 00:29:41 2005 +0000
+++ b/lisp/mh-e/mh-identity.el	Tue Oct 18 00:51:43 2005 +0000
@@ -124,7 +124,7 @@
 `:', 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))