78 |
((and prompt (not byserv)) |
((and prompt (not byserv)) |
79 |
(setq user (read-string (url-auth-user-prompt url realm) |
(setq user (read-string (url-auth-user-prompt url realm) |
80 |
(user-real-login-name)) |
(user-real-login-name)) |
81 |
pass (funcall url-passwd-entry-func "Password: ")) |
pass (read-passwd "Password: ")) |
82 |
(set url-basic-auth-storage |
(set url-basic-auth-storage |
83 |
(cons (list server |
(cons (list server |
84 |
(cons path |
(cons path |
102 |
(progn |
(progn |
103 |
(setq user (read-string (url-auth-user-prompt url realm) |
(setq user (read-string (url-auth-user-prompt url realm) |
104 |
(user-real-login-name)) |
(user-real-login-name)) |
105 |
pass (funcall url-passwd-entry-func "Password: ") |
pass (read-passwd "Password: ") |
106 |
retval (base64-encode-string (format "%s:%s" user pass)) |
retval (base64-encode-string (format "%s:%s" user pass)) |
107 |
byserv (assoc server (symbol-value url-basic-auth-storage))) |
byserv (assoc server (symbol-value url-basic-auth-storage))) |
108 |
(setcdr byserv |
(setcdr byserv |
160 |
((and prompt (not byserv)) |
((and prompt (not byserv)) |
161 |
(setq user (read-string (url-auth-user-prompt url realm) |
(setq user (read-string (url-auth-user-prompt url realm) |
162 |
(user-real-login-name)) |
(user-real-login-name)) |
163 |
pass (funcall url-passwd-entry-func "Password: ") |
pass (read-passwd "Password: ") |
164 |
url-digest-auth-storage |
url-digest-auth-storage |
165 |
(cons (list server |
(cons (list server |
166 |
(cons path |
(cons path |
187 |
(progn |
(progn |
188 |
(setq user (read-string (url-auth-user-prompt url realm) |
(setq user (read-string (url-auth-user-prompt url realm) |
189 |
(user-real-login-name)) |
(user-real-login-name)) |
190 |
pass (funcall url-passwd-entry-func "Password: ") |
pass (read-passwd "Password: ") |
191 |
retval (setq retval |
retval (setq retval |
192 |
(cons user |
(cons user |
193 |
(url-digest-auth-create-key |
(url-digest-auth-create-key |