2001-06-21 17:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-goto-body): Return nil if not found. (revert!)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cd590b5..d931b0b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-21 17:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-goto-body): Return nil if not found. (revert!)
+
 2001-06-21 10:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
        From Fremlin <chief@bandits.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index 6ffd743..ba40be0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1723,8 +1723,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
     (expand-abbrev))
   (goto-char (point-min))
   (or (search-forward (concat "\n" mail-header-separator "\n") nil t)
-      (search-forward-regexp "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" nil t)
-      (point-min)))
+      (search-forward-regexp "[^:]+:\\([^\n]\\|\n[ \t]\\)+\n\n" nil t)))
 
 (defun message-goto-eoh ()
   "Move point to the end of the headers."