Mercurial > emacs

changeset 9663:8bd05e79e0bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-setup): Fill in-reply-to field properly.
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 Oct 1994 05:02:00 +0000
parents ca4987708cc0
children 1bfdc32d5744
files lisp/mail/sendmail.el
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Sun Oct 23 04:55:35 1994 +0000
+++ b/lisp/mail/sendmail.el	Sun Oct 23 05:02:00 1994 +0000
@@ -216,10 +216,8 @@
 	  (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