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

* 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> 2005-10-23 Satyaki Das <satyaki@theforce.stanford.edu>
* mh-identity.el (mh-assoc-ignore-case): New macro that uses * mh-identity.el (mh-assoc-ignore-case): New macro that uses
......
...@@ -134,6 +134,14 @@ various structure fields. Lookup `defstruct' for more details." ...@@ -134,6 +134,14 @@ various structure fields. Lookup `defstruct' for more details."
(load (format "%s.el" (ad-get-arg 0)) t t)) (load (format "%s.el" (ad-get-arg 0)) t t))
ad-do-it)) 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) (provide 'mh-acros)
;;; Local Variables: ;;; Local Variables:
......
...@@ -73,14 +73,6 @@ You can update the alias list manually using \\[mh-alias-reload].") ...@@ -73,14 +73,6 @@ You can update the alias list manually using \\[mh-alias-reload].")
;;; Alias Loading ;;; 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) (defun mh-alias-tstamp (arg)
"Check whether alias files have been modified. "Check whether alias files have been modified.
Return t if any file listed in the Aliasfile MH profile component has been Return t if any file listed in the Aliasfile MH profile component has been
......
...@@ -118,13 +118,6 @@ Return t if anything is deleted." ...@@ -118,13 +118,6 @@ Return t if anything is deleted."
(defvar mh-identity-signature-end nil (defvar mh-identity-signature-end nil
"Marker for the end of a signature inserted by `mh-insert-identity'.") "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) (defun mh-identity-field-handler (field)
"Return the handler for header FIELD or nil if none set. "Return the handler for header FIELD or nil if none set.
The field name is downcased. If the FIELD begins with the character 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