# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 998162542 0
# Node ID f8833aa83b5e64d1b40b9fdffb509db9861cbe24
# Parent  cc3f1ee23db97340c3b484021847eb3d4b6599a1
	* 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.

diff -r cc3f1ee23db9 -r f8833aa83b5e lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Fri Aug 17 11:01:41 2001 +0000
+++ b/lisp/gnus/ChangeLog	Sat Aug 18 19:22:22 2001 +0000
@@ -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 -r cc3f1ee23db9 -r f8833aa83b5e lisp/gnus/gnus-art.el
--- a/lisp/gnus/gnus-art.el	Fri Aug 17 11:01:41 2001 +0000
+++ b/lisp/gnus/gnus-art.el	Sat Aug 18 19:22:22 2001 +0000
@@ -3650,7 +3650,8 @@
       ;; 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 -r cc3f1ee23db9 -r f8833aa83b5e lisp/gnus/gnus-util.el
--- a/lisp/gnus/gnus-util.el	Fri Aug 17 11:01:41 2001 +0000
+++ b/lisp/gnus/gnus-util.el	Sat Aug 18 19:22:22 2001 +0000
@@ -691,7 +691,8 @@
       ;; 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 @@
 		    (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 -r cc3f1ee23db9 -r f8833aa83b5e lisp/gnus/nnmail.el
--- a/lisp/gnus/nnmail.el	Fri Aug 17 11:01:41 2001 +0000
+++ b/lisp/gnus/nnmail.el	Sat Aug 18 19:22:22 2001 +0000
@@ -466,7 +466,7 @@
   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)