From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 11 Aug 1998 12:17:42 +0000 (+0000)
Subject: (mail-setup): After using `fill-region-as-paragraph'
X-Git-Tag: emacs-20.3~82
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=118a3c046e4cf824c0e7190bea4f683b50914165;p=emacs.git

(mail-setup): After using `fill-region-as-paragraph'
on a new address field, ensure that it ends with a newline.
---

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))