From: yamaoka Date: Fri, 22 Jun 2001 01:03:00 +0000 (+0000) Subject: Synch with Oort Gnus. X-Git-Tag: t-gnus-6_15_4-02-quimby-last-~12 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=74cc5760c0e81f52be22b9bdd5ddcae87239f488;p=elisp%2Fgnus.git- Synch with Oort Gnus. --- 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 + + * message.el (message-goto-body): Return nil if not found. (revert!) + 2001-06-21 10:00:00 ShengHuo ZHU From Fremlin 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."