From: morioka <morioka>
Date: Thu, 23 Apr 1998 14:09:22 +0000 (+0000)
Subject: (gnus-summary-mail-forward): Make local variable
X-Git-Tag: gnus-6_7-tomo-199811302358~60
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b843c673756075f389ded1c38a9eb85b001a7ee8;p=elisp%2Fgnus.git-

(gnus-summary-mail-forward): Make local variable
`default-mime-charset' of `gnus-original-article-buffer' and set up by
`default-mime-charset' of `gnus-summary-buffer'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 95aa5f7..ad7f8dd 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -547,7 +547,11 @@ If FULL-HEADERS (the prefix), include full headers when forwarding."
   (interactive "P")
   (gnus-setup-message 'forward
     (gnus-summary-select-article)
-    (set-buffer gnus-original-article-buffer)
+    (let ((charset default-mime-charset))
+      (set-buffer gnus-original-article-buffer)
+      (make-local-variable 'default-mime-charset)
+      (setq default-mime-charset charset)
+      )
     (let ((message-included-forward-headers
 	   (if full-headers "" message-included-forward-headers)))
       (message-forward post))))