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 |
;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 |
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> |
291 |
(unless window |
(unless window |
292 |
(setq window current-window)) |
(setq window current-window)) |
293 |
(select-window window) |
(select-window window) |
294 |
;; This might be an old-stylee buffer config. |
;; This might be an old-style buffer config. |
295 |
(when (vectorp split) |
(when (vectorp split) |
296 |
(setq split (append split nil))) |
(setq split (append split nil))) |
297 |
(when (or (consp (car split)) |
(when (or (consp (car split)) |