Mercurial > emacs

changeset 37500:797a4ab5dbed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-message-regexp-p): Don't match before headers.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 27 Apr 2001 13:00:42 +0000
parents b8ff92361366
children 08e799af2936
files lisp/mail/rmail.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Fri Apr 27 12:37:32 2001 +0000
+++ b/lisp/mail/rmail.el	Fri Apr 27 13:00:42 2001 +0000
@@ -2509,11 +2509,12 @@
 	      ;; 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)