(write-entity): Use `write-region-as-CRLF' instead of

[elisp/flim.git] / mmbuffer.el

diff --git a/mmbuffer.el b/mmbuffer.el
index 76b3fdc..a24ca6f 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -113,9 +113,9 @@
 (mm-define-method write-entity ((entity buffer) filename)
   (save-excursion
     (set-buffer (mime-entity-buffer-internal entity))
-    (write-region-as-binary (mime-entity-header-start-internal entity)
-                           (mime-entity-body-end-internal entity)
-                           filename)
+    (write-region-as-CRLF (mime-entity-header-start-internal entity)
+                         (mime-entity-body-end-internal entity)
+                         filename)
     ))
 
 (mm-define-method write-entity-body ((entity buffer) filename)