6676 |
(when (eq mode 'gnus-summary-mode) |
(when (eq mode 'gnus-summary-mode) |
6677 |
(gnus-kill-buffer buf))) |
(gnus-kill-buffer buf))) |
6678 |
(setq gnus-current-select-method gnus-select-method) |
(setq gnus-current-select-method gnus-select-method) |
6679 |
(if leave-hidden |
(set-buffer gnus-group-buffer) |
6680 |
(set-buffer gnus-group-buffer) |
(if quit-config |
6681 |
(pop-to-buffer gnus-group-buffer)) |
(gnus-handle-ephemeral-exit quit-config) |
6682 |
(if (not quit-config) |
(goto-char group-point) |
6683 |
(progn |
(unless leave-hidden |
6684 |
(goto-char group-point) |
(gnus-configure-windows 'group 'force))) |
|
(unless leave-hidden |
|
|
(gnus-configure-windows 'group 'force))) |
|
|
(gnus-handle-ephemeral-exit quit-config)) |
|
6685 |
;; Clear the current group name. |
;; Clear the current group name. |
6686 |
(unless quit-config |
(unless quit-config |
6687 |
(setq gnus-newsgroup-name nil))))) |
(setq gnus-newsgroup-name nil))))) |
11766 |
;; coding: iso-8859-1 |
;; coding: iso-8859-1 |
11767 |
;; End: |
;; End: |
11768 |
|
|
11769 |
;;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235 |
;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235 |
11770 |
;;; gnus-sum.el ends here |
;;; gnus-sum.el ends here |