# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097938498 0
# Node ID e5a1e83cfb02dd9811e647b768257dd0ea7942f6
# Parent  22f6e207e697a0d191a5403251f9a34bc85350dd
(url-basic-auth, url-digest-auth): Use read-passwd.

diff -r 22f6e207e697 -r e5a1e83cfb02 lisp/url/url-auth.el
--- a/lisp/url/url-auth.el	Sat Oct 16 14:51:39 2004 +0000
+++ b/lisp/url/url-auth.el	Sat Oct 16 14:54:58 2004 +0000
@@ -78,7 +78,7 @@
      ((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 @@
 	  (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 @@
 	 ((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 @@
 	      (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