Commit 88c73e73 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(url-basic-auth, url-digest-auth): Use read-passwd.

parent d99b4859
......@@ -78,7 +78,7 @@ instead of the pathname inheritance method."
((and prompt (not byserv))
(setq user (read-string (url-auth-user-prompt url realm)
(user-real-login-name))
pass (funcall url-passwd-entry-func "Password: "))
pass (read-passwd "Password: "))
(set url-basic-auth-storage
(cons (list server
(cons path
......@@ -102,7 +102,7 @@ instead of the pathname inheritance method."
(progn
(setq user (read-string (url-auth-user-prompt url realm)
(user-real-login-name))
pass (funcall url-passwd-entry-func "Password: ")
pass (read-passwd "Password: ")
retval (base64-encode-string (format "%s:%s" user pass))
byserv (assoc server (symbol-value url-basic-auth-storage)))
(setcdr byserv
......@@ -160,7 +160,7 @@ instead of hostname:portnum."
((and prompt (not byserv))
(setq user (read-string (url-auth-user-prompt url realm)
(user-real-login-name))
pass (funcall url-passwd-entry-func "Password: ")
pass (read-passwd "Password: ")
url-digest-auth-storage
(cons (list server
(cons path
......@@ -187,7 +187,7 @@ instead of hostname:portnum."
(progn
(setq user (read-string (url-auth-user-prompt url realm)
(user-real-login-name))
pass (funcall url-passwd-entry-func "Password: ")
pass (read-passwd "Password: ")
retval (setq retval
(cons user
(url-digest-auth-create-key
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment