(rmail-message-regexp-p): Yet another fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 12edb45ccef329fd6fe3693184a258a0580f8243..94afe6c37bbc3811eaed3ddd261943ce75d18f48 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-30  Gerd Moellmann  <gerd@gnu.org>
+
+       * mail/rmail.el (rmail-message-regexp-p): Yet another fix.
+
 2001-04-29  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * term/tty-colors.el (tty-color-define, tty-color-off-gray-diag)

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 5d5a1c494f280636bcf8479ef183b58e38284642..62ad4f6b27fc159020565226127a17b2917bc368 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2507,15 +2507,18 @@ or forward if N is negative."
              (forward-line 2)
              ;; If there's a Summary-line in the (otherwise empty)
              ;; header, we didn't yet get past the EOOH line.
-             (if (looking-at "^\\*\\*\\* EOOH \\*\\*\\*\n")
-                 (forward-line 1))
+             (when (looking-at "^\\*\\*\\* EOOH \\*\\*\\*\n")
+               (forward-line 1))
              (setq beg (point))
              (narrow-to-region (point) end))
-           (rfc822-goto-eoh)
+           (progn 
+             (rfc822-goto-eoh)
+             (setq end (point)))
          (setq beg (point))
-         (search-forward "\n*** EOOH ***\n" end t))
+         (search-forward "\n*** EOOH ***\n" end t)
+         (setq end (1+ (match-beginning 0)))))
        (goto-char beg)
-       (re-search-forward regexp end t)))))
+       (re-search-forward regexp end t))))
 
 (defvar rmail-search-last-regexp nil)
 (defun rmail-search (regexp &optional n)