Commit 47e77e9f authored by ShengHuo ZHU's avatar ShengHuo ZHU

* 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.
parent 9cd6acef
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.
......
......@@ -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)
......
......@@ -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))
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment