Commit 9a51cf9e authored by Bill Wohler's avatar Bill Wohler

* 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.
parent 1dd9796d
2005-10-23 Bill Wohler <wohler@newt.com>
* 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.
* mh-mime.el: Autoload mm-uu for mm-uu-dissect to avoid compiler
warning in Emacs 22.
2005-10-23 Satyaki Das <satyaki@theforce.stanford.edu>
* mh-identity.el (mh-assoc-ignore-case): New macro that uses
......
......@@ -134,6 +134,14 @@ various structure fields. Lookup `defstruct' for more details."
(load (format "%s.el" (ad-get-arg 0)) t t))
ad-do-it))
(defmacro mh-assoc-ignore-case (key alist)
"Check if KEY is present in ALIST while ignoring case to do the comparison.
Compatibility macro for Emacs versions that lack `assoc-string', introduced in
Emacs 22."
(if (fboundp 'assoc-string)
`(assoc-string ,key ,alist t)
`(assoc-ignore-case ,key ,alist)))
(provide 'mh-acros)
;;; Local Variables:
......
......@@ -73,14 +73,6 @@ You can update the alias list manually using \\[mh-alias-reload].")
;;; Alias Loading
(defmacro mh-assoc-ignore-case (key alist)
"Search for string KEY in ALIST.
This is a wrapper around `assoc-string' or `assoc-ignore-case'. Avoid
`assoc-ignore-case' which is now an obsolete function."
(cond ((fboundp 'assoc-string) `(assoc-string ,key ,alist t))
((fboundp 'assoc-ignore-case) `(assoc-ignore-case ,key ,alist))
(t (error "The macro mh-assoc-ignore-case not implemented properly"))))
(defun mh-alias-tstamp (arg)
"Check whether alias files have been modified.
Return t if any file listed in the Aliasfile MH profile component has been
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment