(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 e79c9ac9b85ef0998f75c0f1e83b1182f6b72180..a79fa289373b033ddf890d4adb244083b6080140 100644 (file)
--- 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))