# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1132251513 0
# Node ID 151367ca23534144bff89aebf87df913318744c4
# Parent  477d7ac04b7b13501ee863cb1e3b77c6308aa1b0
	* simple.el (sendmail-user-agent-compose): Use hard-newline.

diff -r 477d7ac04b7b -r 151367ca2353 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 17 16:31:22 2005 +0000
+++ b/lisp/ChangeLog	Thu Nov 17 18:18:33 2005 +0000
@@ -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 -r 477d7ac04b7b -r 151367ca2353 lisp/simple.el
--- a/lisp/simple.el	Thu Nov 17 16:31:22 2005 +0000
+++ b/lisp/simple.el	Thu Nov 17 18:18:33 2005 +0000
@@ -4506,7 +4506,7 @@
 	(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)