# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739141342 0
# Node ID 2624c18df76426e8d09f6f562ce99d34be88efd3
# Parent  1dec1449324df8bc0817df775c007cd0ac01127e
(rmail-select-summary): Add a save-excursion.

diff -r 1dec1449324d -r 2624c18df764 lisp/mail/rmail.el
--- 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))))