# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 990379052 0
# Node ID aac3e63d536182d426ce6242581b1d7e66c0d666
# Parent  254485af9aa72f7ed5c8febaf9987c55d58f097d
(rmail-retry-failure): Do save-window-excursion.

diff -r 254485af9aa7 -r aac3e63d5361 lisp/mail/rmail.el
--- a/lisp/mail/rmail.el	Sun May 20 17:17:22 2001 +0000
+++ b/lisp/mail/rmail.el	Sun May 20 17:17:32 2001 +0000
@@ -3422,9 +3422,12 @@
 			  (insert "BCC: " (user-login-name) "\n"))))
 		  (goto-char (point-min))
 		  (mail-position-on-field (if resending "Resent-To" "To") t)))))
-      (with-current-buffer rmail-this-buffer
-	(if pruned
-	    (rmail-toggle-header 1))))))
+      ;; save-window-excursion is needed because of the switch-to-buffer
+      ;; in rmail-toggle-header.
+      (save-window-excursion
+	(with-current-buffer rmail-this-buffer
+	  (if pruned
+	      (rmail-toggle-header 1)))))))
 
 (defun rmail-summary-exists ()
   "Non-nil iff in an RMAIL buffer and an associated summary buffer exists.