From: keiichi <keiichi>
Date: Fri, 16 Oct 1998 03:02:39 +0000 (+0000)
Subject: (gnus-message-maybe-setup-default-charset):	Move from message.el and rename
X-Git-Tag: nana-gnus-6_8-199811302358~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=04c9c8caa32d20a3eb0f83c8fc93db692ded474b;p=elisp%2Fgnus.git-

(gnus-message-maybe-setup-default-charset):	Move from message.el and rename
from `message-maybe-setup-default-charset'.
(gnus-setup-message): Call `gnus-message-maybe-setup-default-charset'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5774e25..55556d8 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -218,11 +218,25 @@ Thank you for your help in stamping out bugs.
 	 (set (make-local-variable 'gnus-message-group-art)
 	      (cons ,group ,article))
 	 (make-local-variable 'gnus-newsgroup-name)
+	 (gnus-message-maybe-setup-default-charset)
 	 (gnus-run-hooks 'gnus-message-setup-hook))
        (gnus-add-buffer)
        (gnus-configure-windows ,config t)
        (set-buffer-modified-p nil))))
 
+(defun gnus-message-maybe-setup-default-charset ()
+  (let ((charset
+	 (and (boundp 'gnus-summary-buffer)
+              (buffer-live-p gnus-summary-buffer)
+	      (save-excursion
+		(set-buffer gnus-summary-buffer)
+		default-mime-charset))))
+    (if charset
+	(progn
+	  (make-local-variable 'default-mime-charset)
+	  (setq default-mime-charset charset)
+	  ))))
+
 (defun gnus-inews-add-send-actions (winconf buffer article)
   (make-local-hook 'message-sent-hook)
   (add-hook 'message-sent-hook 'gnus-inews-do-gcc nil t)