[Emacs-diffs] Changes to emacs/lisp/mail/mailheader.el

[Chong Yidong]

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)