2 files changed, 5 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f39727164b3..371665b5a57 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e86229a5cfb..e1dee3295f2 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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))