From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 Oct 2004 14:54:58 +0000 (+0000)
Subject: (url-basic-auth, url-digest-auth): Use read-passwd.
X-Git-Tag: ttn-vms-21-2-B4~4560
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88c73e7372d4a3327c5a0a5c371bfd4f88fd2ac7;p=emacs.git

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

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