diff options
| author | Lars Magne Ingebrigtsen | 2010-10-28 22:03:15 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2010-10-28 22:03:15 +0000 |
| commit | eb9df2c9c73cffa0c9864473f2890e2790c9fae5 (patch) | |
| tree | 5e30bfc796169688fefce3f41c61f2013a0ebfc3 | |
| parent | a62b88d4015d62f97dccf53ea1fb7d740ebcd718 (diff) | |
| download | emacs-eb9df2c9c73cffa0c9864473f2890e2790c9fae5.tar.gz emacs-eb9df2c9c73cffa0c9864473f2890e2790c9fae5.zip | |
gnus-sum.el (gnus-summary-rescan-group): Try to restore the window config after reselecting.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 85d00c6607a..df12e96cde6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2010-10-28 Lars Magne Ingebrigtsen <larsi@gnus.org> | ||
| 2 | |||
| 3 | * gnus-sum.el (gnus-summary-rescan-group): Try to restore the window | ||
| 4 | config after reselecting. | ||
| 5 | |||
| 1 | 2010-10-28 Julien Danjou <julien@danjou.info> | 6 | 2010-10-28 Julien Danjou <julien@danjou.info> |
| 2 | 7 | ||
| 3 | * shr.el (shr-put-image): Use point even if only inserting text. | 8 | * shr.el (shr-put-image): Use point even if only inserting text. |
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index ca540b0f22f..60e3cc83d7f 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el | |||
| @@ -7033,7 +7033,11 @@ The prefix argument ALL means to select all articles." | |||
| 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 |