From f39bd225b91fd9d9e7a3cf73fc23e11c06eb12f8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 6 Mar 2001 01:31:09 +0000 Subject: [PATCH] * nnshimbun.el (nnshimbun-retrieve-url): Check if `url-current-mime-charset' is bound. --- ChangeLog | 5 +++++ lisp/nnshimbun.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 047a746..df83f1e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-03-06 Katsumi Yamaoka + + * lisp/nnshimbun.el (nnshimbun-retrieve-url): Check if + `url-current-mime-charset' is bound. + 2001-03-04 Katsumi Yamaoka * 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 -- 1.7.10.4