summaryrefslogtreecommitdiff
path: root/lisp/mail/mailheader.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2005-11-17 16:30:52 +0000
committerChong Yidong <cyd@stupidchicken.com>2005-11-17 16:30:52 +0000
commit4ea0018b7fd298525be4b9eb54d720a74e2f18a1 (patch)
tree24d3e53614f889bc69fea4a1972410da37fe3cf6 /lisp/mail/mailheader.el
parent9f5f5ff2cf0d6b186470c70b2d71aa7f05260daa (diff)
downloademacs-4ea0018b7fd298525be4b9eb54d720a74e2f18a1.tar.gz
* simple.el (hard-newline): New variable.
* 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/mailheader.el (mail-header-format) (mail-header-format-function): Likewise. * add-log.el (add-change-log-entry, change-log-merge): Likewise.
Diffstat (limited to 'lisp/mail/mailheader.el')
-rw-r--r--lisp/mail/mailheader.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mailheader.el b/lisp/mail/mailheader.el
index 1e9a24da341..aeed54a5ace 100644
--- a/lisp/mail/mailheader.el
+++ b/lisp/mail/mailheader.el
@@ -146,7 +146,7 @@ skip the header altogether if there are no other elements.
(insert (capitalize (symbol-name header))
": "
(if (consp value) (car value) value)
- "\n")))
+ hard-newline)))
(defun mail-header-format (format-rules headers)
"Use FORMAT-RULES to format HEADERS and insert into current buffer.
@@ -187,7 +187,7 @@ A key of nil has as its value a list of defaulted headers to ignore."
(if (cdr rule)
(funcall (cdr rule) header value)
(funcall mail-header-format-function header value))))))
- (insert "\n")))
+ (insert hard-newline)))
(provide 'mailheader)