diff options
| author | Kenichi Handa | 1997-09-26 01:50:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-09-26 01:50:55 +0000 |
| commit | b784063f3638332dbecbba542f8d1185de6ef823 (patch) | |
| tree | 7b728ddfa6fff344941c77b0a9b93cf1b49362f6 | |
| parent | 4afb4ca5d54ede4574555572b63bc072af2d700e (diff) | |
| download | emacs-b784063f3638332dbecbba542f8d1185de6ef823.tar.gz emacs-b784063f3638332dbecbba542f8d1185de6ef823.zip | |
(nnmail-find-file): Bind
file-name-coding-system to binary.
(nnmail-write-region): Likewise.
| -rw-r--r-- | lisp/gnus/nnmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 295e2f2b3ac..a3ed26c45c0 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el | |||
| @@ -488,8 +488,8 @@ parameter. It should return nil, `warn' or `delete'." | |||
| 488 | ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> | 488 | ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| 489 | (let ((coding-system-for-read nnmail-file-coding-system) | 489 | (let ((coding-system-for-read nnmail-file-coding-system) |
| 490 | ;; 1997/8/12 by MORIOKA Tomohiko | 490 | ;; 1997/8/12 by MORIOKA Tomohiko |
| 491 | ;; for XEmacs/mule. | 491 | (file-name-coding-system 'binary) ; for Emacs 20 |
| 492 | (pathname-coding-system 'binary)) | 492 | (pathname-coding-system 'binary)) ; for XEmacs/mule |
| 493 | (insert-file-contents file) | 493 | (insert-file-contents file) |
| 494 | t) | 494 | t) |
| 495 | (file-error nil)))) | 495 | (file-error nil)))) |
| @@ -1650,8 +1650,8 @@ If ARGS, PROMPT is used as an argument to `format'." | |||
| 1650 | ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> | 1650 | ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| 1651 | (let ((coding-system-for-write nnmail-file-coding-system) | 1651 | (let ((coding-system-for-write nnmail-file-coding-system) |
| 1652 | ;; 1997/8/12 by MORIOKA Tomohiko | 1652 | ;; 1997/8/12 by MORIOKA Tomohiko |
| 1653 | ;; for XEmacs/mule. | 1653 | (file-name-coding-system 'binary) ; for Emacs 20 |
| 1654 | (pathname-coding-system 'binary)) | 1654 | (pathname-coding-system 'binary)) ; for XEmacs/mule |
| 1655 | (write-region start end filename append visit lockname) | 1655 | (write-region start end filename append visit lockname) |
| 1656 | (set-file-modes filename nnmail-default-file-modes))) | 1656 | (set-file-modes filename nnmail-default-file-modes))) |
| 1657 | 1657 | ||