1 |
;;; gnus-win.el --- window configuration functions for Gnus |
;;; gnus-win.el --- window configuration functions for Gnus |
2 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 |
;; Copyright (C) 1996, 97, 98, 1999, 2000, 02, 2004 |
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> |
516 |
(unless buffer |
(unless buffer |
517 |
(error "Invalid buffer type: %s" type)) |
(error "Invalid buffer type: %s" type)) |
518 |
(if (and (setq buf (get-buffer (gnus-window-to-buffer-helper buffer))) |
(if (and (setq buf (get-buffer (gnus-window-to-buffer-helper buffer))) |
519 |
(setq win (get-buffer-window buf t))) |
(setq win (get-buffer-window buf 0))) |
520 |
(if (memq 'point split) |
(if (memq 'point split) |
521 |
(setq all-visible win)) |
(setq all-visible win)) |
522 |
(setq all-visible nil))) |
(setq all-visible nil))) |