diff options
| author | Karl Heuer | 1994-03-30 02:21:19 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-30 02:21:19 +0000 |
| commit | 2a527e488c2a33001ddacbd19e4b5a717c651a4c (patch) | |
| tree | 13eae64fa71374766cf587555384dbc510e39074 | |
| parent | 61446fe76ff516eb13ee79cdc3bd4966659fa100 (diff) | |
| download | emacs-2a527e488c2a33001ddacbd19e4b5a717c651a4c.tar.gz emacs-2a527e488c2a33001ddacbd19e4b5a717c651a4c.zip | |
(rmail-sort-from-summary): Preserve window selection.
| -rw-r--r-- | lisp/mail/rmailsum.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 4c502b27870..d15d4a2bf22 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -1111,8 +1111,10 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." | |||
| 1111 | (defun rmail-sort-from-summary (sortfun reverse) | 1111 | (defun rmail-sort-from-summary (sortfun reverse) |
| 1112 | "Sort Rmail messages from Summary buffer and update it after sorting." | 1112 | "Sort Rmail messages from Summary buffer and update it after sorting." |
| 1113 | (require 'rmailsort) | 1113 | (require 'rmailsort) |
| 1114 | (pop-to-buffer rmail-buffer) | 1114 | (let ((selwin (selected-window))) |
| 1115 | (funcall sortfun reverse) | 1115 | (unwind-protect |
| 1116 | (rmail-summary)) | 1116 | (progn (pop-to-buffer rmail-buffer) |
| 1117 | (funcall sortfun reverse)) | ||
| 1118 | (select-window selwin)))) | ||
| 1117 | 1119 | ||
| 1118 | ;;; rmailsum.el ends here | 1120 | ;;; rmailsum.el ends here |