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

This commit is contained in:
Glenn Morris 2011-02-16 23:43:53 -08:00
parent b8bd990898
commit 41002397ee
2 changed files with 6 additions and 1 deletions

View file

@ -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)

View file

@ -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)