Commit 9171f37f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 8851c1f0
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment