From: yamaoka <yamaoka>
Date: Tue, 6 Mar 2001 01:31:17 +0000 (+0000)
Subject: * nnshimbun.el (nnshimbun-retrieve-url): Check if `url-current-mime-charset'
X-Git-Tag: t-gnus-6_15_0-10-quimby~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c3e9c3ca743de71a4d30f39071ab194bca85494a;p=elisp%2Fgnus.git-

* nnshimbun.el (nnshimbun-retrieve-url): Check if `url-current-mime-charset'
 is bound.
---

diff --git a/ChangeLog b/ChangeLog
index a837097..f090cba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-06  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/nnshimbun.el (nnshimbun-retrieve-url): Check if
+	`url-current-mime-charset' is bound.
+
 2001-03-04  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus.el (gnus-info-find-node): Pretend to be
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 893bdfa..9331f37 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -338,7 +338,8 @@ for a charset indication")
 	(setq-default url-automatic-caching old-caching)
 	(setq-default url-standalone-mode old-mode)))
     (let ((charset
-	   (or url-current-mime-charset
+	   (or (and (boundp 'url-current-mime-charset)
+		    (symbol-value 'url-current-mime-charset))
 	       (let ((case-fold-search t))
 		 (goto-char (point-min))
 		 (if (or (re-search-forward