From b843c673756075f389ded1c38a9eb85b001a7ee8 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 23 Apr 1998 14:09:22 +0000 Subject: [PATCH] (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'. --- lisp/gnus-msg.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)))) -- 1.7.10.4