From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 18 Apr 1998 01:54:05 +0000 (+0000)
Subject: (rmail-message-regexp-p):
X-Git-Tag: emacs-20.3~1435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b4b87b68dddfb8cb54804765bb5c1e577e14ad8e;p=emacs.git

(rmail-message-regexp-p):
Handle unreformatted messages for real.
(rmail-message-recipients-p): Undo previous change.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 9c2f516c4e6..078d48b72f7 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2181,7 +2181,7 @@ or forward if N is negative."
 (defun rmail-message-recipients-p (msg recipients &optional primary-only)
   (save-restriction
     (goto-char (rmail-msgbeg msg))
-    (search-forward "\n*** EOOH ***\n" (point-max) t)
+    (search-forward "\n*** EOOH ***\n")
     (narrow-to-region (point) (progn (search-forward "\n\n") (point)))
     (or (string-match recipients (or (mail-fetch-field "To") ""))
 	(string-match recipients (or (mail-fetch-field "From") ""))
@@ -2190,13 +2190,20 @@ or forward if N is negative."
 
 (defun rmail-message-regexp-p (msg regexp)
   "Return t, if for message number MSG, regexp REGEXP matches in the header."
-  (goto-char (rmail-msgbeg msg))
-  (let ((end 
-         (save-excursion 
-           (or (search-forward "\n*** EOOH ***\n" (point-max) t)
-	       (search-forward "\n\n" (point-max)))
-	   (point))))
-    (re-search-forward regexp end t)))
+  (save-excursion
+    (goto-char (rmail-msgbeg msg))
+    (let (beg end)
+      (save-excursion
+	(forward-line 2)
+	(setq beg (point)))
+      (save-excursion 
+	(search-forward "\n*** EOOH ***\n" (point-max))
+	(when (= beg (match-beginning 0))
+	  (setq beg (point))
+	  (search-forward "\n\n" (point-max)))
+	(setq end (point)))
+      (goto-char beg)
+      (re-search-forward regexp end t))))
 
 (defvar rmail-search-last-regexp nil)
 (defun rmail-search (regexp &optional n)