mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(nnmail-find-file): Bind

Browse Source 
file-name-coding-system to binary.
(nnmail-write-region): Likewise.
This commit is contained in:
Kenichi Handa 1997-09-26 01:50:55 +00:00
parent 4afb4ca5d5
commit b784063f36
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus/nnmail.el
View File

@ -488,8 +488,8 @@ parameter. It should return nil, `warn' or `delete'."
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(let ((coding-system-for-read nnmail-file-coding-system)
;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule.
(pathname-coding-system 'binary))
(file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary)) ; for XEmacs/mule
(insert-file-contents file)
t)
(file-error nil))))
@ -1650,8 +1650,8 @@ If ARGS, PROMPT is used as an argument to `format'."
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(let ((coding-system-for-write nnmail-file-coding-system)
;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule.
(pathname-coding-system 'binary))
(file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary)) ; for XEmacs/mule
(write-region start end filename append visit lockname)
(set-file-modes filename nnmail-default-file-modes)))