(rmail-retry-failure): Do save-window-excursion.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d6a8f5868f5ad83a53de1b3d86696967a82ddb9c..35c7cbefeaa4ab128918caa058130d53459a3ae1 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3422,9 +3422,12 @@ specifying headers which should not be copied into the new message."
                          (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)))))))
 \f
 (defun rmail-summary-exists ()
   "Non-nil iff in an RMAIL buffer and an associated summary buffer exists.