/[emacs]/emacs/lisp/mh-e/mh-identity.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-identity.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by satyakid, Sun Oct 23 22:34:34 2005 UTC revision 1.18 by wohler, Sun Oct 23 22:47:27 2005 UTC
# Line 118  Return t if anything is deleted." Line 118  Return t if anything is deleted."
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

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26