diff options
| author | Stefan Monnier | 2004-05-18 16:38:40 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-05-18 16:38:40 +0000 |
| commit | a7f7f2540f02834ad128d0c9357a4dbd8222dff4 (patch) | |
| tree | 1c5ab7fd4db8d0e4f5edc2d7023db779b9d16ff1 | |
| parent | 74c35a48a74ba1e57f39100d030b8e299860494e (diff) | |
| download | emacs-a7f7f2540f02834ad128d0c9357a4dbd8222dff4.tar.gz emacs-a7f7f2540f02834ad128d0c9357a4dbd8222dff4.zip | |
(gnus-all-windows-visible-p): Don't consider non-visible windows.
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-win.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index e2cea8301ec..00a2634ee8c 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2004-05-18 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * gnus-win.el (gnus-all-windows-visible-p): Don't consider | ||
| 4 | non-visible windows. | ||
| 5 | |||
| 1 | 2004-05-07 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2004-05-07 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * rfc2047.el (rfc2047-encode-message-header): Don't encode non-address | 8 | * rfc2047.el (rfc2047-encode-message-header): Don't encode non-address |
diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el index fa082e7c1d0..4d0c18a8daf 100644 --- a/lisp/gnus/gnus-win.el +++ b/lisp/gnus/gnus-win.el | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; gnus-win.el --- window configuration functions for Gnus | 1 | ;;; gnus-win.el --- window configuration functions for Gnus |
| 2 | ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002 | 2 | ;; Copyright (C) 1996, 97, 98, 1999, 2000, 02, 2004 |
| 3 | ;; Free Software Foundation, Inc. | 3 | ;; Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 | ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| @@ -516,7 +516,7 @@ should have point." | |||
| 516 | (unless buffer | 516 | (unless buffer |
| 517 | (error "Invalid buffer type: %s" type)) | 517 | (error "Invalid buffer type: %s" type)) |
| 518 | (if (and (setq buf (get-buffer (gnus-window-to-buffer-helper buffer))) | 518 | (if (and (setq buf (get-buffer (gnus-window-to-buffer-helper buffer))) |
| 519 | (setq win (get-buffer-window buf t))) | 519 | (setq win (get-buffer-window buf 0))) |
| 520 | (if (memq 'point split) | 520 | (if (memq 'point split) |
| 521 | (setq all-visible win)) | 521 | (setq all-visible win)) |
| 522 | (setq all-visible nil))) | 522 | (setq all-visible nil))) |