procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-message-recipients-p-1, rmail-message-regexp-p-1): Avoid clobbering the mark.

Browse source
This commit is contained in:
Chong Yidong 2009-01-27 03:15:52 +00:00
parent 6682b72d72
commit 3fbc055fd8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/mail/rmailsum.el
View file

@ -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)))