From fba3b4d83332b793b923e992cb5a9b92d367d544 Mon Sep 17 00:00:00 2001 From: Peter Galbraith Date: Tue, 18 Oct 2005 00:51:43 +0000 Subject: [PATCH] * mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to compare against header field for mixed-case "From:". --- lisp/mh-e/ChangeLog | 6 ++++++ lisp/mh-e/mh-identity.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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)) -- 2.39.5