comparison lisp/gnus/nnmail.el @ 19988:189ed9f676c9

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

19987:470e157b3e8a

        (after-insert-file-functions nil))
    (condition-case ()
	;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
	(let ((coding-system-for-read nnmail-file-coding-system)
	      ;; 1997/8/12 by MORIOKA Tomohiko
	      ;;	for XEmacs/mule.
	      (pathname-coding-system 'binary))
	  (insert-file-contents file)
	  t)
      (file-error nil))))

;; 1997/8/10 by MORIOKA Tomohiko

(defun nnmail-write-region (start end filename &optional append visit lockname)
  "Do a `write-region', and then set the file modes."
  ;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
  (let ((coding-system-for-write nnmail-file-coding-system)
	;; 1997/8/12 by MORIOKA Tomohiko
	;;	for XEmacs/mule.
	(pathname-coding-system 'binary))
    (write-region start end filename append visit lockname)
    (set-file-modes filename nnmail-default-file-modes)))

;;;
;;; Status functions

19988:189ed9f676c9

        (after-insert-file-functions nil))
    (condition-case ()
	;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
	(let ((coding-system-for-read nnmail-file-coding-system)
	      ;; 1997/8/12 by MORIOKA Tomohiko
	      (file-name-coding-system 'binary) ; for Emacs 20
	      (pathname-coding-system 'binary)) ; for XEmacs/mule
	  (insert-file-contents file)
	  t)
      (file-error nil))))

;; 1997/8/10 by MORIOKA Tomohiko

(defun nnmail-write-region (start end filename &optional append visit lockname)
  "Do a `write-region', and then set the file modes."
  ;; 1997/5/4 by MORIOKA Tomohiko <[e-mail]>
  (let ((coding-system-for-write nnmail-file-coding-system)
	;; 1997/8/12 by MORIOKA Tomohiko
	(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)))

;;;
;;; Status functions