From: tsuchiya <tsuchiya>
Date: Mon, 21 Jan 2002 14:43:08 +0000 (+0000)
Subject: (gnus-summary-preview-mime-message): Protect against dead windows.
X-Git-Tag: t-gnus-6_15_6-01-quimby~117
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8301575b26a0f4f183a4933a9b4b8348d8e9ef7b;p=elisp%2Fgnus.git-

(gnus-summary-preview-mime-message): Protect against dead windows.
---

diff --git a/ChangeLog b/ChangeLog
index ce97e2a..7b6a099 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-21  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
+	* lisp/gnus-sum.el (gnus-summary-preview-mime-message): Protect
+	against dead windows.
+
 	* lisp/nnheader.el (mm-encode-coding-string): Alias to
 	`encode-coding-string'.
 	(mm-decode-coding-string): Alias to 'decode-coding-string'.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 05f181f..93576e8 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6236,7 +6236,9 @@ The state which existed when entering the ephemeral is reset."
   (let ((gnus-break-pages nil)
 	(gnus-show-mime t))
     (gnus-summary-select-article gnus-show-all-headers t))
-  (select-window (get-buffer-window gnus-article-buffer)))
+  (let ((w (get-buffer-window gnus-article-buffer)))
+    (when w
+      (select-window (get-buffer-window gnus-article-buffer)))))
 
 ;;; Dead summaries.