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 /lisp/gnus/gnus-util.el | |
| 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.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 6 |
1 files changed, 4 insertions, 2 deletions
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)) |