Commit 2a527e48 authored by Karl Heuer's avatar Karl Heuer
Browse files

(rmail-sort-from-summary): Preserve window selection.

parent 61446fe7
......@@ -1111,8 +1111,10 @@ If prefix argument REVERSE is non-nil, sort them in reverse order."
(defun rmail-sort-from-summary (sortfun reverse)
"Sort Rmail messages from Summary buffer and update it after sorting."
(require 'rmailsort)
(pop-to-buffer rmail-buffer)
(funcall sortfun reverse)
(rmail-summary))
(let ((selwin (selected-window)))
(unwind-protect
(progn (pop-to-buffer rmail-buffer)
(funcall sortfun reverse))
(select-window selwin))))
;;; rmailsum.el ends here
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