Subject: Re: bug#26191: Allow custom FTP logins.

From: Danny Milosavljevic <[email-masked]>
Date: Mon, 20 Mar 2017 20:44:48 +0100

Hi Roel,

On Mon, 20 Mar 2017 13:10:08 +0100
Roel Janssen <[email-masked]> 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 ...).