(mime-store-message/partial-piece): Use `mime-write-entity-body'.

diff --git a/mime-play.el b/mime-play.el
index 875b12f..84366e8 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -478,8 +478,7 @@ saved as binary.  Otherwise the region is saved by `write-region'."
          (select-window pwin)
          )
       (setq file (concat root-dir "/" number))
-      (mime-raw-write-region (mime-entity-body-start entity)
-                            (mime-entity-body-end entity) file)
+      (mime-write-entity-body entity file)
       (let ((total-file (concat root-dir "/CT")))
        (setq total
              (if total