(nnmail-find-file): Bind

file-name-coding-system to binary.
(nnmail-write-region): Likewise.

diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 295e2f2b3acef64f6683012a30f1c57df3439553..a3ed26c45c01b4bb979adddad848ae58ace315c4 100644 (file)
--- 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 <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)))