From 74cc5760c0e81f52be22b9bdd5ddcae87239f488 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 22 Jun 2001 01:03:00 +0000
Subject: [PATCH] Synch with Oort Gnus.

---
 lisp/ChangeLog  |    4 ++++
 lisp/message.el |    3 +--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b9dc15..0a0f357 100644
--- 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
--- 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."
-- 
1.7.10.4