From: yamaoka <yamaoka>
Date: Fri, 16 Oct 1998 10:39:25 +0000 (+0000)
Subject: 	* lisp/gnus-msg.el (gnus-message-setup-hook): Replace the default
X-Git-Tag: pgnus-ichikawa-199811302358~160
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d0d7895d28592cc44beb8882209f78aeb1efc487;p=elisp%2Fgnus.git-

	* lisp/gnus-msg.el (gnus-message-setup-hook): Replace the default
	value to `gnus-maybe-setup-default-charset'.
	(gnus-maybe-setup-default-charset): New function. It is called
	`message-maybe-setup-default-charset' at one time.

	* lisp/message.el (message-maybe-setup-default-charset): Abolished.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5e7d21b..df420e6 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 '(message-maybe-setup-default-charset)
+(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
@@ -1191,6 +1191,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)
diff --git a/lisp/message.el b/lisp/message.el
index ad81728..337963d 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4465,19 +4465,6 @@ regexp varstr."
 ;;; @ for MIME Edit mode
 ;;;
 
-(defun 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 message-maybe-encode ()
   (when message-mime-mode
     (run-hooks 'mime-edit-translate-hook)