[Emacs-diffs] emacs/lisp/mail rmailsum.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/01/27 03:15:52

Modified files:
        lisp/mail      : rmailsum.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.157&r2=1.158

Patches:
Index: rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.157
retrieving revision 1.158
diff -u -b -r1.157 -r1.158
--- rmailsum.el 27 Jan 2009 03:05:18 -0000      1.157
+++ rmailsum.el 27 Jan 2009 03:15:52 -0000      1.158
@@ -113,7 +113,7 @@
                          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 @@
   (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)))