* gnus-msg.el (gnus-inews-do-gcc): Set mail-parse-charset.

* gnus-int.el (gnus-request-accept-article): Ditto.
(gnus-request-replace-article): Ditto.
* mm-util.el (mm-mime-mule-charset-alist): Add a fake mule-charset.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72a7b31..96d3acd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2000-05-03 14:23:38  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-msg.el (gnus-inews-do-gcc): Set mail-parse-charset.
+       * gnus-int.el (gnus-request-accept-article): Ditto.
+       (gnus-request-replace-article): Ditto.
+       * mm-util.el (mm-mime-mule-charset-alist): Add a fake mule-charset.
+
 2000-05-03 14:11:23  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * rfc2047.el (rfc2047-encode): Test the validity of coding-system.

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 5f3f384..bdd0227 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -460,7 +460,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
   (unless no-encode
     (save-restriction
       (message-narrow-to-head)
-      (mail-encode-encoded-word-buffer))
+      (let ((mail-parse-charset message-default-charset))
+       (mail-encode-encoded-word-buffer)))
     (message-encode-message-body))
   (let ((func (car (or gnus-command-method
                       (gnus-find-method-for-group group)))))
@@ -473,7 +474,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
   (unless no-encode
     (save-restriction
       (message-narrow-to-head)
-      (mail-encode-encoded-word-buffer))
+      (let ((mail-parse-charset message-default-charset))
+       (mail-encode-encoded-word-buffer)))
     (message-encode-message-body))
   (let ((func (car (gnus-group-name-to-method group))))
     (funcall (intern (format "%s-request-replace-article" func))

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 31e42c0..83684e8 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1048,7 +1048,8 @@ this is a reply."
                (message-encode-message-body)
                (save-restriction
                  (message-narrow-to-headers)
-                 (mail-encode-encoded-word-buffer))
+                 (let ((mail-parse-charset message-default-charset))
+                   (mail-encode-encoded-word-buffer)))
                (goto-char (point-min))
                (when (re-search-forward
                       (concat "^" (regexp-quote mail-header-separator) "$")

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index e945a2f..03aca22 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -33,7 +33,10 @@
     (iso-8859-3 latin-iso8859-3)
     (iso-8859-4 latin-iso8859-4)
     (iso-8859-5 cyrillic-iso8859-5)
-    (koi8-r cyrillic-iso8859-5)
+    ;; Non-mule (X)Emacs uses the last mule-charset for 8bit characters.
+    ;; The fake mule-charset, gnus-koi8-r, tells Gnus that the default 
+    ;; charset is koi8-r, not iso-8859-5.
+    (koi8-r cyrillic-iso8859-5 gnus-koi8-r)
     (iso-8859-6 arabic-iso8859-6)
     (iso-8859-7 greek-iso8859-7)
     (iso-8859-8 hebrew-iso8859-8)