Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b9dc15..0a0f357 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 72487e3..631101d 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2139,8 +2139,7 @@ a string \"never\" is inserted in default."
     (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."