From 2382b29dd30692e2e1aa04bc7fd6f9476e983fb7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 20 May 2001 17:17:32 +0000 Subject: [PATCH] (rmail-retry-failure): Do save-window-excursion. --- lisp/mail/rmail.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index d6a8f5868f5..35c7cbefeaa 100644 --- 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))))))) (defun rmail-summary-exists () "Non-nil iff in an RMAIL buffer and an associated summary buffer exists. -- 2.39.5