Mercurial > emacs
changeset 66173:aec7b3bb973f
* mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to
compare against header field for mixed-case "From:".
| author | Peter Galbraith <galbraith@mixing.qc.dfo.ca> |
|---|---|
| date | Tue, 18 Oct 2005 00:51:43 +0000 |
| parents | b393a1601bc1 |
| children | 92d96e2b2626 |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-identity.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))