From 1403516998e17c57b0a17de909c30bf822145a54 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 12 Oct 1998 12:40:35 +0000 Subject: [PATCH] (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. --- lisp/gnus-msg.el | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) 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) -- 1.7.10.4