summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2011-02-16 23:43:53 -0800
committerGlenn Morris <rgm@gnu.org>2011-02-16 23:43:53 -0800
commit41002397eec14de42b7786f4ecc195388d8cd309 (patch)
treec4dfd87773666d717cd39a857fa1886263857481
parentb8bd990898de3fc96b9773c4c8665bf56f334503 (diff)
downloademacs-41002397eec14de42b7786f4ecc195388d8cd309.tar.gz
* lisp/simple.el (rfc822-goto-eoh): Give it a doc-string.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/simple.el5
2 files changed, 6 insertions, 1 deletions
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)