From b784063f3638332dbecbba542f8d1185de6ef823 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 26 Sep 1997 01:50:55 +0000 Subject: [PATCH] (nnmail-find-file): Bind file-name-coding-system to binary. (nnmail-write-region): Likewise. --- lisp/gnus/nnmail.el | 8 ++++---- 1 file 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'." ;; 1997/5/4 by MORIOKA Tomohiko (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 (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))) -- 2.39.2