(mail-setup): Make fill-column wide for the in-reply-to.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index aeea64a9a9a9dad070431da4c4eb5b3566b9a52a..9d0f998df1857d00741b45453d741b9b2aa62337 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -216,6 +216,7 @@ actually occur.")
          (fill-region-as-paragraph address-start (point-max))))
     (if in-reply-to
         (let ((fill-prefix "\t")
+             (fill-column 78)
              (address-start (point)))
          (insert "In-reply-to: " in-reply-to "\n")
          (fill-region-as-paragraph address-start (point-max))))