From 7198cf32adbd5d8b07d9bd0a559aeb02d87b39b7 Mon Sep 17 00:00:00 2001 From: ari Date: Thu, 24 Jan 2002 03:41:28 +0000 Subject: [PATCH] * lisp/gnus-sum.el (gnus-summary-show-article): If coding-system is specified, bind `default-mime-charset' to it. --- ChangeLog | 5 +++++ lisp/gnus-sum.el | 17 +++++++++-------- 2 files changed, 14 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index d953d15..35e329b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-01-24 ARISAWA Akihiro + + * lisp/gnus-sum.el (gnus-summary-show-article): If coding-system is + specified, bind `default-mime-charset' to it. + 2002-01-23 Katsumi Yamaoka * 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 --- 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) -- 1.7.10.4