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

1994-10-15 01:09:19 +00:00
parent 8851c1f036
commit 9171f37fd2
1 changed files with 6 additions and 1 deletions
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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))