* admin/archive-contents.el: Don't stop at the first incorrect version string.

[gnu-emacs-elpa] / admin / archive-contents.el

diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 5f056ba6940874e7770f39d50141280870f133db..5983646603e41ac29d991e4970a074dcfba9c41d 100644 (file)
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -69,7 +69,10 @@ Delete backup files also."
              (if (file-exists-p autoloads-file)
                  (delete-file autoloads-file))
              (archive--delete-elc-files dir)
-             (let ((metadata (archive--metadata dir pkg)))
+             (let ((metadata (or (with-demoted-errors
+                                    ;;(format "batch-make-archive %s: %%s" dir)
+                                    (archive--metadata dir pkg))
+                                  '(nil "0"))))
                 ;; (nth 1 metadata) is nil for "org" which is the only package
                 ;; still using the "org-pkg.el file to specify the metadata.
                 (if (and (nth 1 metadata)