From 3fbc055fd83495fa8f26a13b5c7c9b1e5c6d4301 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 27 Jan 2009 03:15:52 +0000 Subject: [PATCH] (rmail-message-recipients-p-1, rmail-message-regexp-p-1): Avoid clobbering the mark. --- lisp/mail/rmailsum.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index cc25f3de98c..5928baca5f2 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -113,7 +113,7 @@ RECIPIENTS is a string of regexps separated by commas." recipients primary-only)) (defun rmail-message-recipients-p-1 (recipients &optional primary-only) - (narrow-to-region (point) (progn (search-forward "\n\n") (point))) + (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point))) (or (string-match recipients (or (mail-fetch-field "To") "")) (string-match recipients (or (mail-fetch-field "From") "")) (if (not primary-only) @@ -140,7 +140,7 @@ Emacs will list the header line in the RMAIL-summary." (rmail-apply-in-message msg 'rmail-message-regexp-p-1 msg regexp)) (defun rmail-message-regexp-p-1 (msg regexp) - (narrow-to-region (point) (progn (search-forward "\n\n") (point))) + (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point))) (if rmail-enable-mime (funcall rmail-search-mime-header-function msg regexp (point)) (re-search-forward regexp nil t))) -- 2.39.5