From 34046d66f0ff4ecca3c74f87ebd173fd3daf0f5a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 23 Oct 1994 05:02:00 +0000 Subject: [PATCH] (mail-setup): Fill in-reply-to field properly. --- lisp/mail/sendmail.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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 -- 2.39.5