mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1994-03-30 02:21:19 +00:00
parent 61446fe76f
commit 2a527e488c
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/rmailsum.el
View file

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