From: 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/cgi-bin/gitweb.cgi?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)