procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 2001-05-20 17:17:32 +00:00
parent cc9684e8bd
commit 2382b29dd3
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/rmail.el
View file

@ -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.