* simple.el (sendmail-user-agent-compose): Use hard-newline.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da26daee7e237f4929cb385e35f3ad5d75079820..00b2f7046dd95f2422f0bf9d52651a3df9ec54e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,12 +1,13 @@
 2005-11-17  Chong Yidong  <cyd@stupidchicken.com>
 
        * simple.el (hard-newline): New variable.
+       (sendmail-user-agent-compose): Use it.
 
        * mail/sendmail.el (mail-setup, mail-send, mail-insert-from-field)
        (sendmail-send-it, mail-do-fcc, mail-cc, mail-bcc, mail-fcc)
        (mail-mail-reply-to, mail-mail-followup-to)
        (mail-position-on-field, mail-signature, mail-yank-original)
-       (mail-attach-file): Use it.
+       (mail-attach-file): Likewise.
 
        * mail/mailheader.el (mail-header-format)       (mail-header-format-function): Likewise.
 

diff --git a/lisp/simple.el b/lisp/simple.el
index 1c8b997e675a7a1bf35baa46d5aaaed7d1d4ec86..2474df6c333185428aa9649ed939be105fa0a7d6 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4506,7 +4506,7 @@ See also `read-mail-command' concerning reading mail."
        (unless (member-ignore-case (car (car other-headers))
                                    '("in-reply-to" "cc" "body"))
            (insert (car (car other-headers)) ": "
-                   (cdr (car other-headers)) "\n"))
+                   (cdr (car other-headers)) hard-newline))
        (setq other-headers (cdr other-headers)))
       (when body
        (forward-line 1)