From 118a3c046e4cf824c0e7190bea4f683b50914165 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 11 Aug 1998 12:17:42 +0000 Subject: [PATCH] (mail-setup): After using `fill-region-as-paragraph' on a new address field, ensure that it ends with a newline. --- lisp/mail/sendmail.el | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index e79c9ac9b85..a79fa289373 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -353,19 +353,28 @@ actually occur.") (let ((fill-prefix "\t") (address-start (point))) (insert to "\n") - (fill-region-as-paragraph address-start (point-max))) + (fill-region-as-paragraph address-start (point-max)) + (goto-char (point-max)) + (unless (bolp) + (newline))) (newline)) (if cc (let ((fill-prefix "\t") (address-start (progn (insert "CC: ") (point)))) (insert cc "\n") - (fill-region-as-paragraph address-start (point-max)))) + (fill-region-as-paragraph address-start (point-max)) + (goto-char (point-max)) + (unless (bolp) + (newline)))) (if in-reply-to - (let ((fill-prefix "\t") + (let ((fill-prefix "\t") (fill-column 78) (address-start (point))) (insert "In-reply-to: " in-reply-to "\n") - (fill-region-as-paragraph address-start (point-max)))) + (fill-region-as-paragraph address-start (point-max)) + (goto-char (point-max)) + (unless (bolp) + (newline)))) (insert "Subject: " (or subject "") "\n") (if mail-default-headers (insert mail-default-headers)) -- 2.39.5