diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-03 21:02:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-03 21:02:22 +0000 |
| commit | 46564c8d17466bc7d74c78109a0f7d710e268723 (patch) | |
| tree | 1d52eb68d17871b55d633bdf167410832f0efcdd | |
| parent | 980d43b6828ee60f30958306e1b2a63e34f12a25 (diff) | |
| download | emacs-46564c8d17466bc7d74c78109a0f7d710e268723.tar.gz | |
(rmail-select-summary): Add a save-excursion.
| -rw-r--r-- | lisp/mail/rmail.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 6658185005d..d5b5349d7cb 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -170,11 +170,12 @@ Called with region narrowed to unformatted header.") (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)))) |