From: tomo <tomo>
Date: Thu, 14 Dec 2000 07:20:39 +0000 (+0000)
Subject: (mmexternal-require-buffer): Use `binary-insert-file-contents' instead
X-Git-Tag: flim-1_14_0-pre5~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5a7d4ea2915a57d8ef3f26b8c98a2ce54cba97fe;p=elisp%2Fflim.git

(mmexternal-require-buffer): Use `binary-insert-file-contents' instead
of `insert-file-contents-as-binary'.
(mime-write-entity-body): Use `binary-write-region' instead of
`write-region-as-binary'.
---

diff --git a/mmexternal.el b/mmexternal.el
index 9da0773..d68c164 100644
--- a/mmexternal.el
+++ b/mmexternal.el
@@ -79,7 +79,7 @@
 				 (concat " *Body of "
 					 (mime-entity-name entity)
 					 "*"))
-	     (insert-file-contents-as-binary
+	     (binary-insert-file-contents
 	      (mime-external-entity-body-file-internal entity))
 	     (current-buffer))))
       (error (message "Can't get external-body.")))))
@@ -120,7 +120,7 @@
 					    filename)
   (mmexternal-require-buffer entity)
   (with-current-buffer (mime-external-entity-body-buffer-internal entity)
-    (write-region-as-binary (point-min) (point-max) filename)))
+    (binary-write-region (point-min) (point-max) filename)))
 
 
 ;;; @ entity content