From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 17 Nov 2005 18:18:33 +0000 (+0000)
Subject: * simple.el (sendmail-user-agent-compose): Use hard-newline.
X-Git-Tag: emacs-pretest-22.0.90~5811
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcd8c291c117ad3518015d4dba3e6acaddf7d4ef;p=emacs.git

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

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)