(gnus-article-read-summary-keys): Check if summary window exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f71b71..b1e4caf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-read-summary-keys): Check if summary window
+       exists.
+
 2008-09-26  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * message.el (message-confirm-send): Fix version.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index a8ca343..2234d8b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6373,6 +6373,7 @@ not have a face in `gnus-article-boring-faces'."
                                      (point))))
                (when (and (not not-restore-window)
                           new-sum-point
+                          (window-live-p win)
                           (with-current-buffer (window-buffer win)
                             (eq major-mode 'gnus-summary-mode)))
                  (set-window-point win new-sum-point)