(mime-entity-read-field): Would capitalize twice.

[elisp/flim.git] / mmexternal.el

diff --git a/mmexternal.el b/mmexternal.el
index 04e5649..aafddcc 100644 (file)
--- a/mmexternal.el
+++ b/mmexternal.el
@@ -24,8 +24,8 @@
 
 ;;; Code:
 
+(require 'mmgeneric)
 (require 'mime)
-(require 'pces)
 
 (eval-and-compile
   (luna-define-class mime-external-entity (mime-entity)
@@ -78,7 +78,7 @@
                                 (concat " *Body of "
                                         (mime-entity-name entity)
                                         "*"))
-            (insert-file-contents-as-binary
+            (binary-insert-encoded-file
              (mime-external-entity-body-file-internal entity))
             (current-buffer))))
       (error (message "Can't get external-body.")))))
@@ -95,7 +95,8 @@
 (luna-define-method mime-write-entity ((entity mime-external-entity) filename)
   (with-temp-buffer
     (mime-insert-entity entity)
-    (write-region-as-raw-text-CRLF (point-min) (point-max) filename)))
+    (let ((coding-system-for-write 'raw-text-dos))
+      (write-region (point-min) (point-max) filename))))
 
 
 ;;; @ entity header
@@ -119,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-decoded-region (point-min) (point-max) filename)))
 
 
 ;;; @ entity content