Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-srvr.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents cca96a509cfe
children 0132846995bd
line wrap: on
line diff
--- a/lisp/gnus/gnus-srvr.el	Mon Aug 13 09:25:31 2007 +0200
+++ b/lisp/gnus/gnus-srvr.el	Mon Aug 13 09:26:03 2007 +0200
@@ -314,9 +314,9 @@
 (defun gnus-server-exit ()
   "Return to the group buffer."
   (interactive)
+  (run-hooks 'gnus-server-exit-hook)
   (kill-buffer (current-buffer))
-  (switch-to-buffer gnus-group-buffer)
-  (run-hooks 'gnus-server-exit-hook))
+  (gnus-configure-windows 'group t))
 
 (defun gnus-server-list-servers ()
   "List all available servers."