From: morioka <morioka>
Date: Mon, 12 Oct 1998 12:37:36 +0000 (+0000)
Subject: (gnus-article-display-mime-message): Set up buffer local variable
X-Git-Tag: chaotzu-gnus-base~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b64e12ed3d89191e16daefa71e70d4fbd78f513a;p=elisp%2Fgnus.git-

(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.
---

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))