From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 26 Apr 2000 03:00:12 +0000 (+0000)
Subject: * mml.el (mml-preview): Set up posting-charset.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=ec596d9d85b6f27f3dde950b139c3a1d627b983f;p=gnus

* mml.el (mml-preview): Set up posting-charset.
* gnus-msg.el (gnus-group-posting-charset-alist): Add koi8-r.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25d55bf20..5346a76ef 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-04-25 22:46:36  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* 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  <zsh@cs.rochester.edu>
 
 	* webmail.el: Fix yahoo mail.
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index e0a43a359..10ddcdd74 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -103,6 +103,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 334cb8d86..f020df4a7 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))))