From: ueno <ueno>
Date: Thu, 11 Nov 1999 05:59:55 +0000 (+0000)
Subject: * mime-image.el (image-normalize): Use `write-region-as-binary'.
X-Git-Tag: emiko-1_13_7~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7ee365ea5c860b4f375939347c91dc2836d39843;p=elisp%2Fsemi.git

* mime-image.el (image-normalize): Use `write-region-as-binary'.
---

diff --git a/mime-image.el b/mime-image.el
index a6aa2eb..6ceb43f 100644
--- a/mime-image.el
+++ b/mime-image.el
@@ -87,9 +87,8 @@
 	     (make-temp-name 
 	      (expand-file-name "tm" temporary-file-directory))))
 	(with-temp-buffer
-	  (set-buffer-multibyte nil)
 	  (insert data)
-	  (write-region (point-min)(point-max) image-file))
+	  (write-region-as-binary (point-min)(point-max) image-file))
 	(list 'image ':type format ':file image-file)
 	)))