Commit 118a3c04 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-setup): After using `fill-region-as-paragraph'

on a new address field, ensure that it ends with a newline.
parent b7ad053c
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment