Commit b784063f authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(nnmail-find-file): Bind

file-name-coding-system to binary.
(nnmail-write-region): Likewise.
parent 4afb4ca5
...@@ -488,8 +488,8 @@ parameter. It should return nil, `warn' or `delete'." ...@@ -488,8 +488,8 @@ parameter. It should return nil, `warn' or `delete'."
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(let ((coding-system-for-read nnmail-file-coding-system) (let ((coding-system-for-read nnmail-file-coding-system)
;; 1997/8/12 by MORIOKA Tomohiko ;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule. (file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary)) (pathname-coding-system 'binary)) ; for XEmacs/mule
(insert-file-contents file) (insert-file-contents file)
t) t)
(file-error nil)))) (file-error nil))))
...@@ -1650,8 +1650,8 @@ If ARGS, PROMPT is used as an argument to `format'." ...@@ -1650,8 +1650,8 @@ If ARGS, PROMPT is used as an argument to `format'."
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(let ((coding-system-for-write nnmail-file-coding-system) (let ((coding-system-for-write nnmail-file-coding-system)
;; 1997/8/12 by MORIOKA Tomohiko ;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule. (file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary)) (pathname-coding-system 'binary)) ; for XEmacs/mule
(write-region start end filename append visit lockname) (write-region start end filename append visit lockname)
(set-file-modes filename nnmail-default-file-modes))) (set-file-modes filename nnmail-default-file-modes)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment