This commit is contained in:
Richard M. Stallman
2013-01-13 14:48:04 -05:00
parent 4c0a6d4abd
commit 9f7e86ef28
2 changed files with 5 additions and 0 deletions

View File

@@ -1,5 +1,7 @@
2013-01-13 Richard Stallman <rms@gnu.org>
* mail/sendmail.el (mail-position-on-field): Add doc string.
* mail/rmailmm.el (rmail-insert-mime-forwarded-message): Get
current message boundaries and pass them to
message-forward-make-body-mime. Minor style changes.

View File

@@ -1493,6 +1493,9 @@ just append to the file, in Babyl format if necessary."
(insert "\nMail-Followup-To: "))))
(defun mail-position-on-field (field &optional soft)
"Move to the start of the contents of header field FIELD.
If there is none, insert one, unless SOFT is non-nil.
If there are multiple FIELD fields, this goes to the first."
(let (end
(case-fold-search t))
(setq end (mail-header-end))