Mercurial > emacs

changeset 37517:cd2d6781a5f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-message-regexp-p): Yet another fix.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 30 Apr 2001 12:56:59 +0000
parents 753c77b1d8cb
children 9950659f9752
files lisp/mail/rmail.el
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sun Apr 29 10:11:11 2001 +0000
+++ b/lisp/mail/rmail.el	Mon Apr 30 12:56:59 2001 +0000
@@ -2507,15 +2507,18 @@
 	      (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)