Commit 46564c8d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-select-summary): Add a save-excursion.

parent 980d43b6
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment