Mercurial > emacs

changeset 3462:2624c18df764

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-select-summary): Add a save-excursion.
author Richard M. Stallman <rms@gnu.org>
date Thu, 03 Jun 1993 21:02:22 +0000
parents 1dec1449324d
children aa78c7babb8e
files lisp/mail/rmail.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Thu Jun 03 21:02:10 1993 +0000
+++ b/lisp/mail/rmail.el	Thu Jun 03 21:02:22 1993 +0000
@@ -170,11 +170,12 @@
 (defmacro rmail-select-summary (&rest body)
   (` (progn (if (rmail-summary-displayed)
 		(let ((window (selected-window)))
-		  (unwind-protect
-		      (progn
-			(pop-to-buffer rmail-summary-buffer)
-			(,@ body))
-		    (select-window window)))
+		  (save-excursion
+		    (unwind-protect
+			(progn
+			  (pop-to-buffer rmail-summary-buffer)
+			  (,@ body))
+		      (select-window window))))
 	      (save-excursion
 		(set-buffer rmail-summary-buffer)
 		(progn (,@ body))))