mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

(gnus-summary-exit): Remove redundant and harmful

Browse source 
pop-to-buffer, covered by the subsequent gnus-configure-windows.
This commit is contained in:
Stefan Monnier 2004-11-22 20:24:59 +00:00
parent 7c511b96e0
commit d61c212b34
1 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/gnus/gnus-sum.el
View file

@ -6676,15 +6676,12 @@ If FORCE (the prefix), also save the .newsrc file(s)."
(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 @@ If ALL is a number, fetch this number of articles."
;; coding: iso-8859-1
;; End:
;;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235
;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235
;;; gnus-sum.el ends here