From bcd8c291c117ad3518015d4dba3e6acaddf7d4ef Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 17 Nov 2005 18:18:33 +0000 Subject: [PATCH] * simple.el (sendmail-user-agent-compose): Use hard-newline. --- lisp/ChangeLog | 3 ++- lisp/simple.el | 2 +- 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 * 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) -- 2.39.5