diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-30 00:29:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-30 00:29:08 +0000 |
| commit | 4cbcfa9c18220d3c34d4f67d5105ef3125bfec20 (patch) | |
| tree | c397994008d12079f17123593a97dce5ced19af5 /lisp/gnus.el | |
| parent | 2f5ed2e8b3d75043cf246e41ed8a000864ae6012 (diff) | |
| download | emacs-4cbcfa9c18220d3c34d4f67d5105ef3125bfec20.tar.gz | |
(gnus-group-suspend): Be sure to bury the right buffer.
Diffstat (limited to 'lisp/gnus.el')
| -rw-r--r-- | lisp/gnus.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index 79699b73400..1862ad5b37b 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1689,14 +1689,16 @@ The hook gnus-suspend-gnus-hook is called before actually suspending." (interactive) (run-hooks 'gnus-suspend-gnus-hook) ;; Kill GNUS buffers except for Group Mode buffer. - (let ((buffers gnus-buffer-list)) + (let ((buffers gnus-buffer-list) + (group-buf (get-buffer gnus-group-buffer))) (while buffers (and (not (eq (car buffers) gnus-group-buffer)) (get-buffer (car buffers)) (kill-buffer (car buffers))) (setq buffers (cdr buffers)) - )) - (bury-buffer)) + ) + (bury-buffer group-buf) + (delete-windows-on group-buf t))) (defun gnus-group-exit () "Quit reading news after updating .newsrc. |