bug#26191: Allow custom FTP logins.

[Danny Milosavljevic]

Hi Roel,

On Mon, 20 Mar 2017 13:10:08 +0100
Roel Janssen <address@hidden> wrote:
> +  (let* ((userinfo (string-split (uri-userinfo uri) #\:))

> +         (username (if (and (> (length userinfo) 0)
> +                            (not (string= (car userinfo) "")))
> +                       (car userinfo) #f))
> +         (password (if (> (length userinfo) 1) (cadr userinfo) #f))

It would make it more readable if you used (match ...).