Mercurial > emacs
changeset 66967:151367ca2353
* simple.el (sendmail-user-agent-compose): Use hard-newline.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 17 Nov 2005 18:18:33 +0000 |
| parents | 477d7ac04b7b |
| children | 7db78a409419 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)