From: tomo <tomo>
Date: Fri, 15 Dec 2000 04:20:54 +0000 (+0000)
Subject: (mime-store-message/partial-piece): Use `binary-insert-file-contents'
X-Git-Tag: semi-1_14_0-pre5~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fa9d9fc57a3e7442c33e179a482eff10f25681c3;p=elisp%2Fsemi.git

(mime-store-message/partial-piece): Use `binary-insert-file-contents'
instead of `insert-file-contents-as-binary'; don't use
`as-binary-input-file'; use `binary-write-region' instead of
`write-region-as-binary'.
---

diff --git a/mime-play.el b/mime-play.el
index 1b1b869..edd46d5 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -369,7 +369,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	  (save-window-excursion
 	    (set-buffer full-buf)
 	    (erase-buffer)
-	    (insert-file-contents-as-binary file)
+	    (binary-insert-file-contents file)
 	    (setq major-mode 'mime-show-message-mode)
 	    (mime-view-buffer (current-buffer) nil mother)
 	    (setq pbuf (current-buffer))
@@ -420,12 +420,12 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 		    (or (file-exists-p file)
 			(throw 'tag nil)
 			)
-		    (as-binary-input-file (insert-file-contents file))
+		    (binary-insert-file-contents file)
 		    (goto-char (point-max))
 		    (setq i (1+ i))
 		    ))
-		(write-region-as-binary (point-min)(point-max)
-					(expand-file-name "FULL" root-dir))
+		(binary-write-region (point-min)(point-max)
+				     (expand-file-name "FULL" root-dir))
 		(let ((i 1))
 		  (while (<= i total)
 		    (let ((file (format "%s/%d" root-dir i)))