Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 111220:fc95f9fde9d3
gnus-sum.el (gnus-summary-rescan-group): Try to restore the window config after reselecting.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 28 Oct 2010 22:03:15 +0000 |
| parents | 7b332968b4ae |
| children | ffb890b32d37 |
comparison
equal
deleted
inserted
replaced
| 111219:88ac54c22b2b | 111220:fc95f9fde9d3 |
|---|---|
| 7031 (gnus-summary-goto-subject current-subject nil t))) | 7031 (gnus-summary-goto-subject current-subject nil t))) |
| 7032 | 7032 |
| 7033 (defun gnus-summary-rescan-group (&optional all) | 7033 (defun gnus-summary-rescan-group (&optional all) |
| 7034 "Exit the newsgroup, ask for new articles, and select the newsgroup." | 7034 "Exit the newsgroup, ask for new articles, and select the newsgroup." |
| 7035 (interactive "P") | 7035 (interactive "P") |
| 7036 (gnus-summary-reselect-current-group all t)) | 7036 (let ((config gnus-current-window-configuration)) |
| 7037 (gnus-summary-reselect-current-group all t) | |
| 7038 (gnus-configure-windows config) | |
| 7039 (when (eq config 'article) | |
| 7040 (gnus-summary-select-article)))) | |
| 7037 | 7041 |
| 7038 (defun gnus-summary-update-info (&optional non-destructive) | 7042 (defun gnus-summary-update-info (&optional non-destructive) |
| 7039 (save-excursion | 7043 (save-excursion |
| 7040 (let ((group gnus-newsgroup-name)) | 7044 (let ((group gnus-newsgroup-name)) |
| 7041 (when group | 7045 (when group |