Mercurial > emacs

changeset 8382:425ac5eebc19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-suspend): Be sure to bury the right buffer.
author Richard M. Stallman <rms@gnu.org>
date Sat, 30 Jul 1994 00:29:08 +0000
parents 9d751556d1c7
children d2b1b642f4e6
files lisp/=gnus.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gnus.el	Fri Jul 29 21:42:41 1994 +0000
+++ b/lisp/=gnus.el	Sat Jul 30 00:29:08 1994 +0000
@@ -1689,14 +1689,16 @@
   (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.