/[emacs]/emacs/lisp/url/url-auth.el
ViewVC logotype

Diff of /emacs/lisp/url/url-auth.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by lh, Sun Oct 10 20:36:03 2004 UTC revision 1.6 by rms, Sat Oct 16 14:54:58 2004 UTC
# Line 78  instead of the pathname inheritance meth Line 78  instead of the pathname inheritance meth
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
# Line 102  instead of the pathname inheritance meth Line 102  instead of the pathname inheritance meth
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
# Line 160  instead of hostname:portnum." Line 160  instead of hostname:portnum."
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
# Line 187  instead of hostname:portnum." Line 187  instead of hostname:portnum."
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

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26