diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-08-11 12:17:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-08-11 12:17:42 +0000 |
| commit | 21f78bbfe27c586d252eafa0a29a52e8ba3a28fd (patch) | |
| tree | 4b1a11d5e00b76eae70d96f61f0efd98deb21d90 | |
| parent | 8b19a0d44757c0bea522459209f50e2b7f21f6e7 (diff) | |
| download | emacs-21f78bbfe27c586d252eafa0a29a52e8ba3a28fd.tar.gz | |
(mail-setup): After using `fill-region-as-paragraph'
on a new address field, ensure that it ends with a newline.
| -rw-r--r-- | lisp/mail/sendmail.el | 17 |
1 files 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)) |