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

2 files changed, 3 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da26daee7e2..00b2f7046dd 100644
--- 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 1c8b997e675..2474df6c333 100644
--- 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)