From: morioka <morioka>
Date: Sat, 28 Aug 1999 11:01:43 +0000 (+0000)
Subject: (mime-store-message/partial-piece): Use `directory-files' to check
X-Git-Tag: semi-1_13_6~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=77a6496a06afe72c22ad97f88d13818807bf0451;p=elisp%2Fsemi.git

(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
--- 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))