From 9171f37fd2a593cecac4ff71022d5527fbb7db65 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Oct 1994 01:09:19 +0000 Subject: [PATCH] (mail-setup): Fill the in-reply-to field. --- lisp/mail/sendmail.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 61c0de48613..52a9abefe65 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -213,7 +213,12 @@ actually occur.") (insert cc "\n") (fill-region-as-paragraph address-start (point-max)))) (if in-reply-to - (insert "In-reply-to: " in-reply-to "\n")) + (let ((fill-prefix "\t") + address-start) + (insert "In-reply-to: ") + (setq address-start (point)) + (insert in-reply-to "\n") + (fill-region-as-paragraph address-start (point-max)))) (insert "Subject: " (or subject "") "\n") (if mail-default-headers (insert mail-default-headers)) -- 2.39.5