From b64e12ed3d89191e16daefa71e70d4fbd78f513a Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Oct 1998 12:37:36 +0000 Subject: [PATCH] (gnus-article-display-mime-message): Set up buffer local variable `default-mime-charset' of `gnus-original-article-buffer' and `gnus-article-buffer'. (gnus-article-display-message-with-encoded-word): Likewise. --- lisp/gnus-art.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index ff726e0..9cb97df 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -1967,11 +1967,15 @@ commands: (defun gnus-article-display-mime-message () "Article display method for MIME message." ;; called from `gnus-original-article-buffer'. - (let ((default-mime-charset (save-excursion - (set-buffer gnus-summary-buffer) - default-mime-charset))) + (let ((charset (with-current-buffer gnus-summary-buffer + default-mime-charset))) + (make-local-variable 'default-mime-charset) + (setq default-mime-charset charset) (mime-display-message mime-message-structure - gnus-article-buffer nil gnus-article-mode-map)) + gnus-article-buffer nil gnus-article-mode-map) + (make-local-variable 'default-mime-charset) + (setq default-mime-charset charset) + ) ;; `mime-display-message' changes current buffer to `gnus-article-buffer'. (make-local-variable 'mime-button-mother-dispatcher) (setq mime-button-mother-dispatcher @@ -1990,7 +1994,11 @@ commands: (let ((charset (save-excursion (set-buffer gnus-summary-buffer) default-mime-charset))) + (make-local-variable 'default-mime-charset) + (setq default-mime-charset charset) (gnus-article-display-traditional-message) + (make-local-variable 'default-mime-charset) + (setq default-mime-charset charset) (let (buffer-read-only) (eword-decode-header charset) (goto-char (point-min)) -- 1.7.10.4