Mercurial > emacs
changeset 22997:7be798773f85
(mail-setup): After using `fill-region-as-paragraph'
on a new address field, ensure that it ends with a newline.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 11 Aug 1998 12:17:42 +0000 |
| parents | c76b7dd7a823 |
| children | 0a5f1e713908 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 13 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Tue Aug 11 11:15:58 1998 +0000 +++ b/lisp/mail/sendmail.el Tue Aug 11 12:17:42 1998 +0000 @@ -353,19 +353,28 @@ (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))