changeset 58432:836d393b1c41

(gnus-summary-exit): Remove redundant and harmful pop-to-buffer, covered by the subsequent gnus-configure-windows.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 22 Nov 2004 20:24:59 +0000
parents da65edef151e
children b34b9f928699
files lisp/gnus/gnus-sum.el
diffstat 1 files changed, 7 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Mon Nov 22 20:08:26 2004 +0000
+++ b/lisp/gnus/gnus-sum.el	Mon Nov 22 20:24:59 2004 +0000
@@ -6676,15 +6676,12 @@
 	(when (eq mode 'gnus-summary-mode)
 	  (gnus-kill-buffer buf)))
       (setq gnus-current-select-method gnus-select-method)
-      (if leave-hidden
-	  (set-buffer gnus-group-buffer)
-	(pop-to-buffer gnus-group-buffer))
-      (if (not quit-config)
-	  (progn
-	    (goto-char group-point)
-	    (unless leave-hidden
-	      (gnus-configure-windows 'group 'force)))
-	(gnus-handle-ephemeral-exit quit-config))
+      (set-buffer gnus-group-buffer)
+      (if quit-config
+	  (gnus-handle-ephemeral-exit quit-config)
+	(goto-char group-point)
+	(unless leave-hidden
+	  (gnus-configure-windows 'group 'force)))
       ;; Clear the current group name.
       (unless quit-config
 	(setq gnus-newsgroup-name nil)))))
@@ -11769,5 +11766,5 @@
 ;; coding: iso-8859-1
 ;; End:
 
-;;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235
+;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235
 ;;; gnus-sum.el ends here