Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f39727164b368d240defd9666a54d2954ef5565c..371665b5a57fcf601c6700bc9a36a19cbfb5b48e 100644 (file)
--- 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 e86229a5cfb8fcd1f62c9289f88e4aad0442643f..e1dee3295f2415b39cf8c7a3ad8916f9d714a64b 100644 (file)
--- 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))