From: Glenn Morris <rgm@gnu.org>
Date: Thu, 17 Feb 2011 07:43:53 +0000 (-0800)
Subject: * lisp/simple.el (rfc822-goto-eoh): Give it a doc-string.
X-Git-Tag: emacs-23.3~18^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41002397eec14de42b7786f4ecc195388d8cd309;p=emacs.git

* lisp/simple.el (rfc822-goto-eoh): Give it a doc-string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 638342739e1..98a9e06e406 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2011-02-17  Glenn Morris  <rgm@gnu.org>
 
+	* 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)
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 6e26e334372..8f37c8e5f0b 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5585,7 +5585,10 @@ appears to have customizations applying to the old default,
   '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)