mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* longlines.el (longlines-mode): Add mail-setup-hook.

Browse source 
* mail/mailheader.el, mail/sendmail.el: Revert 2005-11-17 changes.

	* simple.el (sendmail-user-agent-compose, next-line):
	Conditionally use hard-newline.
This commit is contained in:
Chong Yidong 2005-11-29 23:54:47 +00:00
parent 3fefda51dd
commit 15575807da
5 changed files with 50 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/mailheader.el
View file

@ -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)