diff options
| author | Bill Wohler <wohler@newt.com> | 2006-01-16 21:34:50 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-01-16 21:34:50 +0000 |
| commit | 1e4db53b60d7c9326c98200e80de167527a9fe06 (patch) | |
| tree | 32962cd419323f226567e9fdad15a3d773148529 /lisp/mh-e/mh-identity.el | |
| parent | 8d2aa2377562f6c8f77e4cfe65a1fb8f1ac78cb6 (diff) | |
| download | emacs-1e4db53b60d7c9326c98200e80de167527a9fe06.tar.gz emacs-1e4db53b60d7c9326c98200e80de167527a9fe06.tar.bz2 emacs-1e4db53b60d7c9326c98200e80de167527a9fe06.zip | |
* mh-acros.el (require): Remove defadvice of require as defadvice is
verboten within Emacs and our implementation was returning the wrong
value from require. Upcoming restructuring should make this
unnecessary.
(mh-assoc-ignore-case): Replace with defsubst assoc-string.
* mh-alias.el (mh-alias-local-users, mh-alias-reload, mh-alias-expand,
mh-alias-minibuffer-confirm-address): Use it.
* mh-identity.el (mh-identity-field-handler): Use it.
Diffstat (limited to 'lisp/mh-e/mh-identity.el')
| -rw-r--r-- | lisp/mh-e/mh-identity.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el index 92467b783a9..cd6cff1daed 100644 --- a/lisp/mh-e/mh-identity.el +++ b/lisp/mh-e/mh-identity.el @@ -127,7 +127,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 (mh-assoc-ignore-case field mh-identity-handlers)) + (or (cdr (assoc-string field mh-identity-handlers t)) (and (eq (aref field 0) ?:) (error "Field %s not found in `mh-identity-handlers'" field)) (cdr (assoc ":default" mh-identity-handlers)) |