diff options
| author | Chong Yidong | 2009-01-27 03:15:52 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-01-27 03:15:52 +0000 |
| commit | 3fbc055fd83495fa8f26a13b5c7c9b1e5c6d4301 (patch) | |
| tree | d0edd70ec73396ad3b7ec74a6b6b8c99d8bf29e5 | |
| parent | 6682b72d728cf8cfe7138cf174baa379df6e5422 (diff) | |
| download | emacs-3fbc055fd83495fa8f26a13b5c7c9b1e5c6d4301.tar.gz emacs-3fbc055fd83495fa8f26a13b5c7c9b1e5c6d4301.zip | |
(rmail-message-recipients-p-1, rmail-message-regexp-p-1): Avoid clobbering the mark.
| -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." | |||
| 113 | recipients primary-only)) | 113 | recipients primary-only)) |
| 114 | 114 | ||
| 115 | (defun rmail-message-recipients-p-1 (recipients &optional primary-only) | 115 | (defun rmail-message-recipients-p-1 (recipients &optional primary-only) |
| 116 | (narrow-to-region (point) (progn (search-forward "\n\n") (point))) | 116 | (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point))) |
| 117 | (or (string-match recipients (or (mail-fetch-field "To") "")) | 117 | (or (string-match recipients (or (mail-fetch-field "To") "")) |
| 118 | (string-match recipients (or (mail-fetch-field "From") "")) | 118 | (string-match recipients (or (mail-fetch-field "From") "")) |
| 119 | (if (not primary-only) | 119 | (if (not primary-only) |
| @@ -140,7 +140,7 @@ Emacs will list the header line in the RMAIL-summary." | |||
| 140 | (rmail-apply-in-message msg 'rmail-message-regexp-p-1 msg regexp)) | 140 | (rmail-apply-in-message msg 'rmail-message-regexp-p-1 msg regexp)) |
| 141 | 141 | ||
| 142 | (defun rmail-message-regexp-p-1 (msg regexp) | 142 | (defun rmail-message-regexp-p-1 (msg regexp) |
| 143 | (narrow-to-region (point) (progn (search-forward "\n\n") (point))) | 143 | (narrow-to-region (point) (save-excursion (search-forward "\n\n") (point))) |
| 144 | (if rmail-enable-mime | 144 | (if rmail-enable-mime |
| 145 | (funcall rmail-search-mime-header-function msg regexp (point)) | 145 | (funcall rmail-search-mime-header-function msg regexp (point)) |
| 146 | (re-search-forward regexp nil t))) | 146 | (re-search-forward regexp nil t))) |