(rmail-message-regexp-p): Don't match before

headers.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8ff2800cda602d5be430cd6777b9a40f83316967..5d5a1c494f280636bcf8479ef183b58e38284642 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2509,11 +2509,12 @@ or forward if N is negative."
              ;; header, we didn't yet get past the EOOH line.
              (if (looking-at "^\\*\\*\\* EOOH \\*\\*\\*\n")
                  (forward-line 1))
+             (setq beg (point))
              (narrow-to-region (point) end))
            (rfc822-goto-eoh)
+         (setq beg (point))
          (search-forward "\n*** EOOH ***\n" end t))
-       (narrow-to-region beg (point))
-       (goto-char (point-min))
+       (goto-char beg)
        (re-search-forward regexp end t)))))
 
 (defvar rmail-search-last-regexp nil)