diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-08-09 01:42:13 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-08-09 01:42:13 +0000 |
| commit | 0ba39347d9a752fa2be9b575f2f46422448d7d58 (patch) | |
| tree | f00a2143213ca0432bd05e6baa130269c3bb4e36 /lisp/url | |
| parent | d3509e50815052654e5ced830f898a9aed211308 (diff) | |
| download | emacs-0ba39347d9a752fa2be9b575f2f46422448d7d58.tar.gz | |
username and password default
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-auth.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index c57a96cc81b..45b78e51f90 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -68,7 +68,9 @@ instead of the pathname inheritance method." (server (url-host href)) (port (url-port href)) (path (url-filename href)) - user pass byserv retval data) + (user (url-user href)) + (pass (url-password href)) + byserv retval data) (setq server (format "%s:%d" server port) path (cond (realm realm) @@ -79,8 +81,8 @@ instead of the pathname inheritance method." (cond ((and prompt (not byserv)) (setq user (read-string (url-auth-user-prompt url realm) - (user-real-login-name)) - pass (read-passwd "Password: ")) + (or user (user-real-login-name))) + pass (read-passwd "Password: " nil (or pass ""))) (set url-basic-auth-storage (cons (list server (cons path |