[Emacs-commit] emacs/lisp/mh-e ChangeLog mh-identity.el

[Peter Galbraith]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Peter Galbraith <address@hidden>        05/10/18 00:51:44

Modified files:
        lisp/mh-e      : ChangeLog mh-identity.el 

Log message:
        * mh-identity.el (mh-identity-field-handler): Use `assoc-ignore-case' to
        compare against header field for mixed-case "From:".

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.44&tr2=1.45&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mh-e/mh-identity.el.diff?tr1=1.15&tr2=1.16&r1=text&r2=text

Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.44 emacs/lisp/mh-e/ChangeLog:1.45
--- emacs/lisp/mh-e/ChangeLog:1.44      Mon Oct 17 22:02:38 2005
+++ emacs/lisp/mh-e/ChangeLog   Tue Oct 18 00:51:43 2005
@@ -1,3 +1,9 @@
+2005-10-17  Peter S Galbraith  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mh-customize.el (mh-folder-tool-bar-map): Renamed image file
Index: emacs/lisp/mh-e/mh-identity.el
diff -u emacs/lisp/mh-e/mh-identity.el:1.15 emacs/lisp/mh-e/mh-identity.el:1.16
--- emacs/lisp/mh-e/mh-identity.el:1.15 Mon Oct 10 16:37:53 2005
+++ emacs/lisp/mh-e/mh-identity.el      Tue Oct 18 00:51:43 2005
@@ -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))