Mercurial > emacs

changeset 21640:50e05b0adf4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-message-regexp-p): Handle unreformatted messages for real. (rmail-message-recipients-p): Undo previous change.
author Richard M. Stallman <rms@gnu.org>
date Sat, 18 Apr 1998 01:54:05 +0000
parents fe56e79adf87
children 1174b1d6cbf6
files lisp/mail/rmail.el
diffstat 1 files changed, 15 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sat Apr 18 01:48:22 1998 +0000
+++ b/lisp/mail/rmail.el	Sat Apr 18 01:54:05 1998 +0000
@@ -2181,7 +2181,7 @@
 (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 @@
 
 (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)