From ceed3d7557a93ae1a231c65c08ac787a10b8bad7 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 15 May 2019 07:34:35 +0200 Subject: [PATCH] Don't have url-basic-auth bug out when called with an URL string * lisp/url/url-auth.el (url-basic-auth): Pass the parsed URL object to the prompting function instead of the parameter that's possibly a string (bug#26708). Passing url-basic-auth with a string parameter would fail if passed a non-parsed URL. --- lisp/url/url-auth.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index f644787cc64..beed7c6cb62 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -86,7 +86,7 @@ instead of the filename inheritance method." ((and prompt (not byserv)) (setq user (or (url-do-auth-source-search server type :user) - (read-string (url-auth-user-prompt url realm) + (read-string (url-auth-user-prompt href realm) (or user (user-real-login-name)))) pass (or (url-do-auth-source-search server type :secret) @@ -115,7 +115,7 @@ instead of the filename inheritance method." (progn (setq user (or (url-do-auth-source-search server type :user) - (read-string (url-auth-user-prompt url realm) + (read-string (url-auth-user-prompt href realm) (user-real-login-name))) pass (or (url-do-auth-source-search server type :secret) -- 2.39.5