From: yamaoka <yamaoka>
Date: Sun, 4 Jul 1999 23:41:19 +0000 (+0000)
Subject: (gnus-get-newsgroup-headers): Don't bind the value of
X-Git-Tag: t-gnus-6_10_068-01~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b794b3cf27118618f0266c2e3f5159b332ee406f;p=elisp%2Fgnus.git-

(gnus-get-newsgroup-headers): Don't bind the value of
`mail-parse-ignored-charsets' if its local value in `gnus-summary-buffer' is
nil.
---

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 9514695..ee421d3 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4530,9 +4530,11 @@ The resulting hash table is returned, or nil if no Xrefs were found."
 			     gnus-newsgroup-dependencies)))
 	headers id end ref
 	(mail-parse-charset gnus-newsgroup-charset)
-	(mail-parse-ignored-charsets 
-	     (save-excursion (set-buffer gnus-summary-buffer)
-			     gnus-newsgroup-ignored-charsets)))
+	(mail-parse-ignored-charsets
+	 (or (and (buffer-live-p gnus-summary-buffer)
+		  (save-excursion (set-buffer gnus-summary-buffer)
+				  gnus-newsgroup-ignored-charsets))
+	     gnus-newsgroup-ignored-charsets)))
     (save-excursion
       (set-buffer nntp-server-buffer)
       ;; Translate all TAB characters into SPACE characters.