summaryrefslogtreecommitdiff
path: root/lisp/mail/mailheader.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2005-11-29 23:54:47 +0000
committerChong Yidong <cyd@stupidchicken.com>2005-11-29 23:54:47 +0000
commit15575807da8ad6088e2ae420e0dc1799b4608dd9 (patch)
tree5ad051c36be79bc621b94dc3dd851f13e47d56ad /lisp/mail/mailheader.el
parent3fefda51dd46afa45a3a51c9b3ae2e1b68dd2e48 (diff)
downloademacs-15575807da8ad6088e2ae420e0dc1799b4608dd9.tar.gz
* longlines.el (longlines-mode): Add mail-setup-hook.
* mail/mailheader.el, mail/sendmail.el: Revert 2005-11-17 changes. * simple.el (sendmail-user-agent-compose, next-line): Conditionally use hard-newline.
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 aeed54a5ace..1e9a24da341 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)
- hard-newline)))
+ "\n")))
(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 hard-newline)))
+ (insert "\n")))
(provide 'mailheader)