(mime-store-message/partial-piece): Use `directory-files' to check

there are missing pieces.

diff --git a/mime-play.el b/mime-play.el
index 29545e2..0840304 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -613,7 +613,9 @@ It is registered to variable `mime-preview-quitting-method-alist'."
                         (kill-buffer (current-buffer))
                         )))
                )))
-      (if (and total (> total 0))
+      (if (and total (> total 0)
+              (>= (length (directory-files root-dir nil "^[0-9]+$" t))
+                  total))
          (catch 'tag
            (save-excursion
              (set-buffer (get-buffer-create mime-temp-buffer-name))