diff options
author | Bill Wohler <[email protected]> | 2005-10-23 22:47:27 +0000 |
---|---|---|
committer | Bill Wohler <[email protected]> | 2005-10-23 22:47:27 +0000 |
commit | 9a51cf9e1c0c1cdc00c3ff6374e9aba52c73ae70 (patch) | |
tree | e31d12acc96a4b92ad0b7229f98d640c9489549a /lisp/mh-e/mh-identity.el | |
parent | 1dd9796d2b9359b7a8138a3ff95d6afed63e15c1 (diff) |
* mh-identity.el (mh-assoc-ignore-case): Merge with version in
mh-alias.el and move to mh-acros.el
* mh-alias.el (mh-assoc-ignore-case): Merge with version in
mh-identity.el and move to mh-acros.el
* mh-acros.el (mh-assoc-ignore-case): Merge of function from
mh-identity.el and mh-alias.el.
Diffstat (limited to 'lisp/mh-e/mh-identity.el')
-rw-r--r-- | lisp/mh-e/mh-identity.el | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lisp/mh-e/mh-identity.el b/lisp/mh-e/mh-identity.el index 1e7c803573..9d81a2acbe 100644 --- a/lisp/mh-e/mh-identity.el +++ b/lisp/mh-e/mh-identity.el @@ -118,13 +118,6 @@ Return t if anything is deleted." (defvar mh-identity-signature-end nil "Marker for the end of a signature inserted by `mh-insert-identity'.") -(defmacro mh-assoc-ignore-case (key alist) - "Compatibility macro for emacs versions that lack `assoc-string'. -Check if KEY is present in ALIST while ignoring case to do the comparison." - (if (fboundp 'assoc-string) - `(assoc-string ,key ,alist t) - `(assoc-ignore-case ,key ,alist))) - (defun mh-identity-field-handler (field) "Return the handler for header FIELD or nil if none set. The field name is downcased. If the FIELD begins with the character |