6680 |
(set-buffer gnus-group-buffer) |
(set-buffer gnus-group-buffer) |
6681 |
(if quit-config |
(if quit-config |
6682 |
(gnus-handle-ephemeral-exit quit-config) |
(gnus-handle-ephemeral-exit quit-config) |
6683 |
|
(goto-char group-point) |
6684 |
|
;; If gnus-group-buffer is already displayed, make sure we also move |
6685 |
|
;; the cursor in the window that displays it. |
6686 |
|
(let ((win (get-buffer-window (current-buffer) 0))) |
6687 |
|
(if win (set-window-point win (point)))) |
6688 |
(unless leave-hidden |
(unless leave-hidden |
6689 |
(gnus-configure-windows 'group 'force)) |
(gnus-configure-windows 'group 'force))) |
|
;; Move point after calling gnus-configure-windows to make sure it |
|
|
;; moves the window's point as well. |
|
|
(goto-char group-point)) |
|
6690 |
;; Clear the current group name. |
;; Clear the current group name. |
6691 |
(unless quit-config |
(unless quit-config |
6692 |
(setq gnus-newsgroup-name nil))))) |
(setq gnus-newsgroup-name nil))))) |