[elpa] elpa-admin f4e99d9: * elpa-admin.el (elpaa--make-one-package): Fix thinko

[Stefan Monnier]

branch: elpa-admin
commit f4e99d90af90f1f4105731b1fb01d51f90fa5b50
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * elpa-admin.el (elpaa--make-one-package): Fix thinko
---
 elpa-admin.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 15c6e8f..0153446 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -506,20 +506,20 @@ Return non-nil if a new tarball was created."
                    (metadata `(nil ,(car last-rel) . ,(nthcdr 2 metadata))))
               (if (not last-rel)
                   (elpaa--message "Package %s not released yet!" pkgname)
-                (elpaa--make-one-tarball
-                 tarball dir pkg-spec metadata
-                 (lambda () (cdr last-rel)))
-                (elpaa--release-email pkg-spec metadata dir))))))
+                (when (elpaa--make-one-tarball
+                       tarball dir pkg-spec metadata
+                       (lambda () (cdr last-rel)))
+                  (elpaa--release-email pkg-spec metadata dir)))))))
          (t
           (let ((tarball (concat elpaa--release-subdir
                                  (format "%s-%s.tar" pkgname vers))))
-            (elpaa--make-one-tarball
-             tarball dir pkg-spec metadata
-             (lambda ()
-               (elpaa--get-release-revision
-                dir pkg-spec vers
-                (plist-get (cdr pkg-spec) :version-map))))
-            (elpaa--release-email pkg-spec metadata dir))))))))
+            (when (elpaa--make-one-tarball
+                   tarball dir pkg-spec metadata
+                   (lambda ()
+                     (elpaa--get-release-revision
+                      dir pkg-spec vers
+                      (plist-get (cdr pkg-spec) :version-map))))
+              (elpaa--release-email pkg-spec metadata dir)))))))))
 
 (defun elpaa--call (destination program &rest args)
   "Like ‘call-process’ for PROGRAM, DESTINATION, ARGS.