X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mmbuffer.el;h=b99d80b32af4049983fe982449445be6632d4657;hb=0c90a0315e6dedcadf9d43b2d6a50596521606f6;hp=6a7803a2e4a476cb76d8b7a0f9f43e1c7e19d8e5;hpb=2036f05d798038f84c7a9f82bf10f2a54f6f891f;p=elisp%2Fflim.git

diff --git a/mmbuffer.el b/mmbuffer.el
index 6a7803a..b99d80b 100644
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -96,11 +96,10 @@
 (luna-define-method mime-write-entity ((entity mime-buffer-entity) filename)
   (save-excursion
     (set-buffer (mime-buffer-entity-buffer-internal entity))
-    (write-region-as-raw-text-CRLF
-     (mime-buffer-entity-header-start-internal entity)
-     (mime-buffer-entity-body-end-internal entity)
-     filename)
-    ))
+    (let ((coding-system-for-write 'raw-text-dos))
+      (write-region (mime-buffer-entity-header-start-internal entity)
+		    (mime-buffer-entity-body-end-internal entity)
+		    filename))))
 
 
 ;;; @ entity header
@@ -126,10 +125,9 @@
 					    filename)
   (save-excursion
     (set-buffer (mime-buffer-entity-buffer-internal entity))
-    (write-region-as-binary (mime-buffer-entity-body-start-internal entity)
-			    (mime-buffer-entity-body-end-internal entity)
-			    filename)
-    ))
+    (binary-write-region (mime-buffer-entity-body-start-internal entity)
+			 (mime-buffer-entity-body-end-internal entity)
+			 filename)))
 
 
 ;;; @ entity content