[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/mailheader.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/mailheader.el |
Date: |
Tue, 29 Nov 2005 18:54:48 -0500 |
Index: emacs/lisp/mail/mailheader.el
diff -c emacs/lisp/mail/mailheader.el:1.11 emacs/lisp/mail/mailheader.el:1.12
*** emacs/lisp/mail/mailheader.el:1.11 Thu Nov 17 16:30:52 2005
--- emacs/lisp/mail/mailheader.el Tue Nov 29 23:54:47 2005
***************
*** 146,152 ****
(insert (capitalize (symbol-name header))
": "
(if (consp value) (car value) value)
! hard-newline)))
(defun mail-header-format (format-rules headers)
"Use FORMAT-RULES to format HEADERS and insert into current buffer.
--- 146,152 ----
(insert (capitalize (symbol-name header))
": "
(if (consp value) (car value) value)
! "\n")))
(defun mail-header-format (format-rules headers)
"Use FORMAT-RULES to format HEADERS and insert into current buffer.
***************
*** 187,193 ****
(if (cdr rule)
(funcall (cdr rule) header value)
(funcall mail-header-format-function header value))))))
! (insert hard-newline)))
(provide 'mailheader)
--- 187,193 ----
(if (cdr rule)
(funcall (cdr rule) header value)
(funcall mail-header-format-function header value))))))
! (insert "\n")))
(provide 'mailheader)