* lisp/gnus-sum.el (gnus-summary-show-article): If coding-system is

specified, bind `default-mime-charset' to it.

diff --git a/ChangeLog b/ChangeLog
index d953d15..35e329b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-24  ARISAWA Akihiro  <ari@atesoft.advantest.co.jp>
+
+       * lisp/gnus-sum.el (gnus-summary-show-article): If coding-system is 
+       specified, bind `default-mime-charset' to it.
+
 2002-01-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/message.el: Require `base64' before `canlock-om' to avoid

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index fd2b481..f291d86 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8204,14 +8204,15 @@ are `C-u g'."
   (cond
    ((numberp arg)
     (gnus-summary-show-article t)
-    (let ((gnus-newsgroup-charset
-          (or (cdr (assq arg gnus-summary-show-article-charset-alist))
-              (mm-read-coding-system
-               "View as charset: " ;; actually it is coding system.
-               (save-excursion
-                 (set-buffer gnus-article-buffer)
-                 (mm-detect-coding-region (point) (point-max))))))
-         (gnus-newsgroup-ignored-charsets 'gnus-all))
+    (let* ((gnus-newsgroup-charset
+           (or (cdr (assq arg gnus-summary-show-article-charset-alist))
+               (mm-read-coding-system
+                "View as charset: " ;; actually it is coding system.
+                (save-excursion
+                  (set-buffer gnus-article-buffer)
+                  (mm-detect-coding-region (point) (point-max))))))
+          (default-mime-charset gnus-newsgroup-charset)
+          (gnus-newsgroup-ignored-charsets 'gnus-all))
       (gnus-summary-select-article nil 'force)
       (let ((deps gnus-newsgroup-dependencies)
            head header lines)