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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 0ef55c4603a29b501f30931059b7e1fe5dc079bb..aeea64a9a9a9dad070431da4c4eb5b3566b9a52a 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -216,10 +216,8 @@ actually occur.")
          (fill-region-as-paragraph address-start (point-max))))
     (if in-reply-to
         (let ((fill-prefix "\t")
-             address-start)
-         (insert "In-reply-to: ")
-         (setq address-start (point))
-          (insert in-reply-to "\n")
+             (address-start (point)))
+         (insert "In-reply-to: " in-reply-to "\n")
          (fill-region-as-paragraph address-start (point-max))))
     (insert "Subject: " (or subject "") "\n")
     (if mail-default-headers