From 88c73e7372d4a3327c5a0a5c371bfd4f88fd2ac7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 16 Oct 2004 14:54:58 +0000 Subject: [PATCH] (url-basic-auth, url-digest-auth): Use read-passwd. --- lisp/url/url-auth.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index 39bb730bebc..e92fdd1542c 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -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 -- 2.39.2