118 |
(defvar mh-identity-signature-end nil |
(defvar mh-identity-signature-end nil |
119 |
"Marker for the end of a signature inserted by `mh-insert-identity'.") |
"Marker for the end of a signature inserted by `mh-insert-identity'.") |
120 |
|
|
|
(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))) |
|
|
|
|
121 |
(defun mh-identity-field-handler (field) |
(defun mh-identity-field-handler (field) |
122 |
"Return the handler for header FIELD or nil if none set. |
"Return the handler for header FIELD or nil if none set. |
123 |
The field name is downcased. If the FIELD begins with the character |
The field name is downcased. If the FIELD begins with the character |