Avoid signaling errors in url-basic-auth when password is nil

* lisp/url/url-auth.el (url-basic-auth): Handle nil PASS.
Suggested by Ellis Kenyo <me@elken.dev>.  (Bug#61411)

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index e9ee72029f3..6848c0c73a7 100644
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -100,7 +100,10 @@ instead of the filename inheritance method."
                              (setq retval
                                    (base64-encode-string
                                     (format "%s:%s" user
-                                            (encode-coding-string pass 'utf-8))
+                                            (if pass
+                                                (encode-coding-string pass
+                                                                      'utf-8)
+                                              ""))
                                     t))))
                  (symbol-value url-basic-auth-storage))))
      (byserv