diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-01-27 03:15:52 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-01-27 03:15:52 +0000 |
| commit | 3fbc055fd83495fa8f26a13b5c7c9b1e5c6d4301 (patch) | |
| tree | d0edd70ec73396ad3b7ec74a6b6b8c99d8bf29e5 /lisp/mail/rmailsum.el | |
| parent | 6682b72d728cf8cfe7138cf174baa379df6e5422 (diff) | |
| download | emacs-3fbc055fd83495fa8f26a13b5c7c9b1e5c6d4301.tar.gz | |
(rmail-message-recipients-p-1, rmail-message-regexp-p-1): Avoid clobbering the mark.
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 4 |
1 files 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))) |