# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 875238655 0
# Node ID 189ed9f676c9d0ff7ab9e4524d7832d0276058c5
# Parent  470e157b3e8ae8fdb2b5554e5eb0249820f21a8f
(nnmail-find-file): Bind
file-name-coding-system to binary.
(nnmail-write-region): Likewise.

diff -r 470e157b3e8a -r 189ed9f676c9 lisp/gnus/nnmail.el
--- a/lisp/gnus/nnmail.el	Thu Sep 25 12:40:02 1997 +0000
+++ b/lisp/gnus/nnmail.el	Fri Sep 26 01:50:55 1997 +0000
@@ -488,8 +488,8 @@
 	;; 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 @@
   ;; 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)))