;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Maintainer: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
;; Version:
-;; $Id: mime-setup.el.in,v 7.25 1996/08/18 17:03:42 morioka Exp $
+;; $Id: mime-setup.el.in,v 7.27 1996/09/04 16:14:03 morioka Exp $
;; Keywords: mail, news, MIME, multimedia, multilingual, encoded-word
;; This file is part of tm (Tools for MIME).
;;; @ for message (September Gnus 0.58 or later)
;;;
+(defun message-maybe-setup-default-charset ()
+ (let ((charset
+ (and (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)
+ ))))
+
(or (boundp 'epoch::version)
(progn
(add-hook 'message-setup-hook 'mime/editor-mode)
+ (add-hook 'message-setup-hook 'message-maybe-setup-default-charset)
(add-hook 'message-send-hook 'mime-editor/maybe-translate)
(add-hook 'message-header-hook 'mime/encode-message-header)