Synch to flim-1_14.

[elisp/flim.git] / mmexternal.el

diff --git a/mmexternal.el b/mmexternal.el
index dde1406..9b4b18b 100644 (file)
--- a/mmexternal.el
+++ b/mmexternal.el
@@ -78,7 +78,7 @@
                                 (concat " *Body of "
                                         (mime-entity-name entity)
                                         "*"))
-            (binary-insert-file-contents
+            (binary-insert-encoded-file
              (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)
-    (binary-write-region (point-min) (point-max) filename)))
+    (binary-write-decoded-region (point-min) (point-max) filename)))
 
 
 ;;; @ entity content
@@ -156,8 +156,7 @@
        (let ((ret (std11-fetch-field field-name)))
          (when ret
            (or (symbolp field-name)
-               (setq field-name
-                     (intern (capitalize (capitalize field-name)))))
+               (setq field-name (intern (capitalize field-name))))
            (mime-entity-set-original-header-internal
             entity
             (put-alist field-name ret