* gnus-art.el (gnus-output-to-file): Bind file-name-coding-system.

	* gnus-util.el (gnus-output-to-rmail): Ditto.
	(gnus-output-to-mail): Ditto.

	* nnmail.el (nnmail-pathname-coding-system): Set default to nil.

4 files changed, 16 insertions, 4 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 072195b6139..e52646e1bba 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,12 @@
+2001-08-18  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+        * gnus-art.el (gnus-output-to-file): Bind file-name-coding-system.
+
+        * gnus-util.el (gnus-output-to-rmail): Ditto.
+        (gnus-output-to-mail): Ditto.
+
+        * nnmail.el (nnmail-pathname-coding-system): Set default to nil.
+        
 2001-08-07  Gerd Moellmann  <gerd@gnu.org>
 
         * mm-uu.el (mm-uu-dissect, mm-uu-test): Fix autoload cookies.
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index d8125828d2f..00a444f93d2 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -3650,7 +3650,8 @@ Provided for backwards compatibility."
       ;; save it to file.
       (goto-char (point-max))
       (insert "\n")
-      (mm-append-to-file (point-min) (point-max) file-name)
+      (let ((file-name-coding-system nnmail-pathname-coding-system))
+        (mm-append-to-file (point-min) (point-max) file-name))
       t)))
 
 (defun gnus-narrow-to-page (&optional arg)
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 061a0610a70..7417543278c 100644
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -691,7 +691,8 @@ with potentially long computations."
       ;; Decide whether to append to a file or to an Emacs buffer.
       (let ((outbuf (get-file-buffer filename)))
         (if (not outbuf)
-            (mm-append-to-file (point-min) (point-max) filename)
+            (let ((file-name-coding-system nnmail-pathname-coding-system))
+              (mm-append-to-file (point-min) (point-max) filename))
           ;; File has been visited, in buffer OUTBUF.
           (set-buffer outbuf)
           (let ((buffer-read-only nil)
@@ -760,7 +761,8 @@ with potentially long computations."
                     (insert "\n"))
                   (insert "\n"))
                 (goto-char (point-max))
-                (mm-append-to-file (point-min) (point-max) filename)))
+                (let ((file-name-coding-system nnmail-pathname-coding-system))
+                  (mm-append-to-file (point-min) (point-max) filename))))
           ;; File has been visited, in buffer OUTBUF.
           (set-buffer outbuf)
           (let ((buffer-read-only nil))
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 504c8083b8a..9234325eac0 100644
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -466,7 +466,7 @@ parameter.  It should return nil, `warn' or `delete'."
   mm-text-coding-system
   "Coding system used in reading inbox")
 
-(defvar nnmail-pathname-coding-system 'binary
+(defvar nnmail-pathname-coding-system nil
   "*Coding system for pathname.")
 
 (defun nnmail-find-file (file)