* FLIM-ELS (flim-modules): Install mel-b-el also for

[elisp/flim.git] / mmbuffer.el

diff --git a/mmbuffer.el b/mmbuffer.el
index 09273b9..a034f5a 100644 (file)
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -125,10 +125,10 @@
                                            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-decoded-region
+     (mime-buffer-entity-body-start-internal entity)
+     (mime-buffer-entity-body-end-internal entity)
+     filename)))
 
 
 ;;; @ entity content
@@ -174,8 +174,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