[elpa] elpa-admin 00050d0e94: * elpa-admin.el (elpaa--fetch): Don't skip initial push

[Stefan Monnier]

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

    * elpa-admin.el (elpaa--fetch): Don't skip initial push
    
    Do call `k` when there's no branch in `origin` yet, since that `k`
    might indeed be the `elpaa--push` which will create that branch.
---
 elpa-admin.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/elpa-admin.el b/elpa-admin.el
index 1751b834f5..543e111de2 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -2227,7 +2227,8 @@ relative to elpa root."
                                    (list release-refspec)))))
           (message "Fetch error for %s:\n%s" pkg (buffer-string)))
         ((not (elpaa--git-branch-p ortb))
-         (message "New package %s hasn't been pushed to origin yet" pkg))
+         (message "New package %s hasn't been pushed to origin yet" pkg)
+         (when k (funcall k pkg-spec)))
          ((zerop (elpaa--call t "git" "merge-base" "--is-ancestor"
                               urtb ortb))
           (message "Nothing new upstream for %s" pkg))