/[emacs]/emacs/lisp/mail/mailheader.el
ViewVC logotype

Diff of /emacs/lisp/mail/mailheader.el

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

revision 1.10 by ttn, Sat Aug 6 18:54:05 2005 UTC revision 1.11 by cyd, Thu Nov 17 16:30:52 2005 UTC
# Line 146  skip the header altogether if there are Line 146  skip the header altogether if there are
146      (insert (capitalize (symbol-name header))      (insert (capitalize (symbol-name header))
147              ": "              ": "
148              (if (consp value) (car value) value)              (if (consp value) (car value) value)
149              "\n")))              hard-newline)))
150    
151  (defun mail-header-format (format-rules headers)  (defun mail-header-format (format-rules headers)
152    "Use FORMAT-RULES to format HEADERS and insert into current buffer.    "Use FORMAT-RULES to format HEADERS and insert into current buffer.
# Line 187  A key of nil has as its value a list of Line 187  A key of nil has as its value a list of
187                 (if (cdr rule)                 (if (cdr rule)
188                     (funcall (cdr rule) header value)                     (funcall (cdr rule) header value)
189                   (funcall mail-header-format-function header value))))))                   (funcall mail-header-format-function header value))))))
190      (insert "\n")))      (insert hard-newline)))
191    
192  (provide 'mailheader)  (provide 'mailheader)
193    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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