> It seems to me that
>
> diff --git a/elpa-admin.el b/elpa-admin.el
> index c9d7c47fa7..87ef36aa0f 100644
> --- a/elpa-admin.el
> +++ b/elpa-admin.el
> @@ -641,16 +641,7 @@ returns. Return the selected revision."
> (make-directory olddir t)
> (funcall mvfun filename)
> (funcall mvfun sig))))
> - (setq oldtarballs keep)))
> - (dolist (oldtarball oldtarballs)
> - ;; Compress oldtarballs.
> - (let ((file (cdr oldtarball)))
> - (when (string-match "\\.\\(tar\\|el\\)\\'" file)
> - ;; Make sure we don't compress the file we just created.
> - (cl-assert (not (equal file (file-name-nondirectory tarball))))
> - ;; (elpaa--message "not equal %s and %s" file tarball)
> - (elpaa--call nil "lzip" (expand-file-name file destdir))
> - (setf (cdr oldtarball) (concat file ".lz"))))))
> + (setq oldtarballs keep))))
> oldtarballs)
>
> (defun elpaa--report-failure ( pkg-spec metadata txt basename destdir
> @@ -887,6 +878,7 @@ auxiliary files unless TARBALL-ONLY is non-nil ."
> ,(format "s|^packages/%s|%s-%s|" pkg pkg vers)
> "-chf" ,tarball
> ,(format "packages/%s" pkg)))
> + (elpaa--call nil "lzip" "-k" tarball)
> (cl-assert (file-readable-p tarball))
> (unless tarball-only
> (let* ((pkgdesc
> @@ -909,9 +901,10 @@ auxiliary files unless TARBALL-ONLY is non-nil ."
> (format "%s-release/%s-%s"
> elpaa--name pkg vers))))
> (let ((link (expand-file-name (format "%s.tar" pkg) destdir)))
> - (when (file-symlink-p link) (delete-file link))
> (ignore-error file-error ;E.g. under w32!
> - (make-symbolic-link (file-name-nondirectory tarball) link)))
> + (make-symbolic-link (file-name-nondirectory tarball) link t)
> + (make-symbolic-link (file-name-nondirectory (concat tarball
> ".lz"))
> + (concat link ".lz") t)))
> (setq oldtarballs
> (let ((elpaa--keep-max
> ;; In the devel directory, don't bother keeping so
>
> could solve the issue.
Looks about right.
> This does not compress standalone .el files, which I don't think we
> have anymore anyway.
IIRC we still have a few `.el` packages, but I don't think we need to
worry about them, indeed (maybe they're all compressed already, actually).
I think we'll need to manually run `lzip -k` on the existing
non-compressed tarballs, tho.
Stefan
