From: morioka <morioka>
Date: Mon, 12 Oct 1998 12:40:35 +0000 (+0000)
Subject: (gnus-message-setup-hook): Add `gnus-maybe-setup-default-charset'.
X-Git-Tag: chaotzu-gnus-base~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1403516998e17c57b0a17de909c30bf822145a54;p=elisp%2Fgnus.git-

(gnus-message-setup-hook): Add `gnus-maybe-setup-default-charset'.
Delete dummy definition for `nnspool-rejected-article-hook' and
`xemacs-codename'
(gnus-maybe-setup-default-charset): New function.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index b1e5714..359409e 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -93,7 +93,7 @@ Thank you.
 The first %s will be replaced by the Newsgroups header;
 the second with the current group name.")
 
-(defvar gnus-message-setup-hook nil
+(defvar gnus-message-setup-hook '(gnus-maybe-setup-default-charset)
   "Hook run after setting up a message buffer.")
 
 (defvar gnus-bug-create-help-buffer t
@@ -538,8 +538,8 @@ If SILENT, don't prompt the user."
 
 
 ;; Dummy to avoid byte-compile warning.
-(defvar nnspool-rejected-article-hook)
-(defvar xemacs-codename)
+;;(defvar nnspool-rejected-article-hook)
+;;(defvar xemacs-codename)
 
 ;;; Since the User-Agent is ``vanity'' headers.
 (defun gnus-extended-version ()
@@ -1141,6 +1141,24 @@ this is a reply."
 	  (insert (car val) ": " (cdr val) "\n"))
 	(gnus-pull (car val) gnus-message-style-insertions)))))
 
+
+;;; @ for MIME Edit mode
+;;;
+
+(defun gnus-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)
+	  ))))
+
+
 ;;; Allow redefinition of functions.
 
 (gnus-ems-redefine)