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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 61c0de48613dbc9635a31644d3a33eafb00c6a1c..52a9abefe654cd50a8149a3072033a8dcd301595 100644 (file)
--- 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))