"ashish.is--- via Guix-patches" via <guix-patches@gnu.org> writes:

> From: Ashish SHUKLA <ashish.is@lostca.se>
>
> The updated information is sourced from the upstream repository at
> GitHub: https://github.com/lavv17/lftp

I think git-fetch with https://github.com/lavv17/lftp better than
url-fetch + ftp://ftp.st.ryukoku.ac.jp/pub/network/

>
> * gnu/packages/ftp.scm (lftp): Update to 4.9.3.
> [source](origin)<uri>: Switch to the only valid working mirror.
> [home-page]: Update.
>
> Change-Id: I73771ed7e577da4bc82a8e74550eca83413dc8de
> ---
>  gnu/packages/ftp.scm | 14 +++++---------
>  1 file changed, 5 insertions(+), 9 deletions(-)
>
> diff --git a/gnu/packages/ftp.scm b/gnu/packages/ftp.scm
> index 9f2334d0dc..04d7995fa1 100644
> --- a/gnu/packages/ftp.scm
> +++ b/gnu/packages/ftp.scm
> @@ -52,19 +52,15 @@ (define-module (gnu packages ftp)
>  (define-public lftp
>    (package
>      (name "lftp")
> -    (version "4.9.2")
> +    (version "4.9.3")
>      (source (origin
>                (method url-fetch)
>                ;; See https://lftp.tech/get.html for mirrors.
> -              (uri (list (string-append "https://lftp.tech/ftp/lftp-"
> -                                        version ".tar.xz")
> -                         (string-append "https://lftp.tech/ftp/old/lftp-"
> -                                        version ".tar.xz")
> -                         (string-append "ftp://ftp.st.ryukoku.ac.jp/pub/network/"
> -                                        "ftp/lftp/lftp-" version ".tar.xz")))
> +              (uri (string-append "ftp://ftp.st.ryukoku.ac.jp/pub/network/"
> +                                  "ftp/lftp/lftp-" version ".tar.xz"))
>                (sha256
>                 (base32
> -                "03b7y0h3mf4jfq5y8zw6hv9v44z3n6i8hc1iswax96y3z7sc85y5"))))
> +                "1p3y8lzikhagxafa3wndgsvhmd5an9ayjq8idg7k7gimg6fikrwn"))))
>      (build-system gnu-build-system)
>      (native-inputs
>       (list pkg-config))
> @@ -83,7 +79,7 @@ (define-public lftp
>         #:configure-flags
>         (list (string-append "--with-readline="
>                              (assoc-ref %build-inputs "readline")))))
> -    (home-page "https://lftp.tech/")
> +    (home-page "https://lftp.yar.ru/")
>      (synopsis "Command-line file transfer program")
>      (description
>       "LFTP is a sophisticated FTP/HTTP client, and a file transfer program
>
> base-commit: c5421392081944d43db18fe04eafecec521f994a