From 47e77e9f1d45d86388ae75c316420970d41d1fe8 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Sat, 18 Aug 2001 19:22:22 +0000 Subject: [PATCH] * 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. --- lisp/gnus/ChangeLog | 9 +++++++++ lisp/gnus/gnus-art.el | 3 ++- lisp/gnus/gnus-util.el | 6 ++++-- lisp/gnus/nnmail.el | 2 +- 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 + + * 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 * 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) -- 2.39.5