From f35244021cc00d7ce01c1ab1337ee9a01ee8dd6f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 26 Apr 2000 03:21:20 +0000 Subject: [PATCH] Sync. --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 1 + lisp/mml.el | 10 ++++++++-- 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25d55bf..5346a76 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-04-25 22:46:36 Shenghuo ZHU + + * mml.el (mml-preview): Set up posting-charset. + * gnus-msg.el (gnus-group-posting-charset-alist): Add koi8-r. + 2000-04-25 21:23:54 Shenghuo ZHU * webmail.el: Fix yahoo mail. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 2b86993..203a4bd 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -108,6 +108,7 @@ the second with the current group name.") (defcustom gnus-group-posting-charset-alist '(("^\\(no\\|fr\\|dk\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\|dk\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1)) + ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \t\n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r)) (message-this-is-mail nil nil) (message-this-is-news nil t)) "Alist of regexps and permitted unencoded charsets for posting. diff --git a/lisp/mml.el b/lisp/mml.el index 334cb8d..f020df4 100644 --- a/lisp/mml.el +++ b/lisp/mml.el @@ -29,7 +29,10 @@ (require 'mm-decode) (eval-and-compile - (autoload 'message-make-message-id "message")) + (autoload 'message-make-message-id "message") + (autoload 'gnus-setup-posting-charset "gnus-msg") + (audoload 'message-fetch-field "message") + (autoload 'message-posting-charset "message")) (defvar mml-generate-multipart-alist nil "*Alist of multipart generation functions. @@ -751,7 +754,10 @@ TYPE is the MIME type to use." "Display current buffer with Gnus, in a new buffer. If RAW, don't highlight the article." (interactive "P") - (let ((buf (current-buffer))) + (let ((buf (current-buffer)) + (message-posting-charset (or (gnus-setup-posting-charset + (message-fetch-field "Newsgroups")) + message-posting-charset))) (switch-to-buffer (get-buffer-create (concat (if raw "*Raw MIME preview of " "*MIME preview of ") (buffer-name)))) -- 1.7.10.4