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

(mail-setup): Fill the in-reply-to field.

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-15 01:09:19 +00:00
parent 8851c1f036
commit 9171f37fd2
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/sendmail.el
View file

@ -213,7 +213,12 @@ actually occur.")
(insert cc "\n")
(fill-region-as-paragraph address-start (point-max))))
(if in-reply-to
(insert "In-reply-to: " in-reply-to "\n"))
(let ((fill-prefix "\t")
address-start)
(insert "In-reply-to: ")
(setq address-start (point))
(insert in-reply-to "\n")
(fill-region-as-paragraph address-start (point-max))))
(insert "Subject: " (or subject "") "\n")
(if mail-default-headers
(insert mail-default-headers))