From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Oct 1994 05:02:00 +0000 (+0000)
Subject: (mail-setup): Fill in-reply-to field properly.
X-Git-Tag: emacs-19.34~6192
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34046d66f0ff4ecca3c74f87ebd173fd3daf0f5a;p=emacs.git

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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 0ef55c4603a..aeea64a9a9a 100644
--- 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