Mercurial > emacs
changeset 38861:f8833aa83b5e
* 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.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Sat, 18 Aug 2001 19:22:22 +0000 |
| parents | cc3f1ee23db9 |
| children | 612446a95acd |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/gnus-util.el lisp/gnus/nnmail.el |
| diffstat | 4 files changed, 16 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)
--- 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))
--- 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)