[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100476: * lisp/simple.el (rfc822-goto-eoh): Give it a doc-string.

[Glenn Morris]

------------------------------------------------------------
revno: 100476
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Wed 2011-02-16 23:43:53 -0800
message:
  * lisp/simple.el (rfc822-goto-eoh): Give it a doc-string.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-17 07:27:37 +0000
+++ b/lisp/ChangeLog    2011-02-17 07:43:53 +0000
@@ -1,5 +1,7 @@
 2011-02-17  Glenn Morris  <address@hidden>
 
+       * simple.el (rfc822-goto-eoh): Give it a doc-string.
+
        * log-edit.el (log-edit-insert-changelog):
        Fix `log-edit-strip-single-file-name' functionality.  (Bug#8057)
 

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2011-02-07 17:41:11 +0000
+++ b/lisp/simple.el    2011-02-17 07:43:53 +0000
@@ -5585,7 +5585,10 @@
   'mail-send-and-exit)
 
 (defun rfc822-goto-eoh ()
-  ;; Go to header delimiter line in a mail message, following RFC822 rules
+  "If the buffer starts with a mail header, move point to the header's end.
+Otherwise, moves to `point-min'.
+The end of the header is the start of the next line, if there is one,
+else the end of the last line.  This function obeys RFC822."
   (goto-char (point-min))
   (when (re-search-forward
         "^\\([:\n]\\|[^: \t\n]+[ \t\n]\\)" nil 'move)