comparison lisp/mail/rmailsum.el @ 6582:bac8e17d51b3

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

6581:3a0db3b2366c

  (rmail-sort-from-summary (function rmail-sort-by-lines) reverse))

(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))

;;; rmailsum.el ends here

6582:bac8e17d51b3

  (rmail-sort-from-summary (function rmail-sort-by-lines) reverse))

(defun rmail-sort-from-summary (sortfun reverse)
  "Sort Rmail messages from Summary buffer and update it after sorting."
  (require 'rmailsort)
  (let ((selwin (selected-window)))
    (unwind-protect
	(progn (pop-to-buffer rmail-buffer)
	       (funcall sortfun reverse))
      (select-window selwin))))

;;; rmailsum.el ends here