diff options
| author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-08-18 19:22:22 +0000 |
|---|---|---|
| committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2001-08-18 19:22:22 +0000 |
| commit | 47e77e9f1d45d86388ae75c316420970d41d1fe8 (patch) | |
| tree | da156c1d21f020dee7b8d0077f9a659e73b022d2 | |
| parent | 9cd6acefe0b30ffc0739901009c564570efa2580 (diff) | |
| download | emacs-47e77e9f1d45d86388ae75c316420970d41d1fe8.tar.gz | |
* 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.
| -rw-r--r-- | lisp/gnus/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/gnus/gnus-art.el | 3 | ||||
| -rw-r--r-- | lisp/gnus/gnus-util.el | 6 | ||||
| -rw-r--r-- | 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 <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) |