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

 is bound.

diff --git a/ChangeLog b/ChangeLog
index a837097..f090cba 100644 (file)
--- 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 (file)
--- 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