1 |
;;; gnus-sum.el --- summary mode commands for Gnus |
;;; gnus-sum.el --- summary mode commands for Gnus |
2 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 |
3 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
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) |
|
(goto-char group-point) |
|
6683 |
(unless leave-hidden |
(unless leave-hidden |
6684 |
(gnus-configure-windows 'group 'force))) |
(gnus-configure-windows 'group 'force)) |
6685 |
|
;; Move point after calling gnus-configure-windows to make sure it |
6686 |
|
;; moves the window's point as well. |
6687 |
|
(goto-char group-point)) |
6688 |
;; Clear the current group name. |
;; Clear the current group name. |
6689 |
(unless quit-config |
(unless quit-config |
6690 |
(setq gnus-newsgroup-name nil))))) |
(setq gnus-newsgroup-name nil))))) |