[Emacs-diffs] Changes to emacs/lisp/url/url-auth.el

[Richard M . Stallman]

Index: emacs/lisp/url/url-auth.el
diff -c emacs/lisp/url/url-auth.el:1.5 emacs/lisp/url/url-auth.el:1.6
*** emacs/lisp/url/url-auth.el:1.5      Sun Oct 10 20:36:03 2004
--- emacs/lisp/url/url-auth.el  Sat Oct 16 14:54:58 2004
***************
*** 78,84 ****
       ((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: "))
        (set url-basic-auth-storage
           (cons (list server
                       (cons path
--- 78,84 ----
       ((and prompt (not byserv))
        (setq user (read-string (url-auth-user-prompt url realm)
                              (user-real-login-name))
!           pass (read-passwd "Password: "))
        (set url-basic-auth-storage
           (cons (list server
                       (cons path
***************
*** 102,108 ****
          (progn
            (setq user (read-string (url-auth-user-prompt url realm)
                                    (user-real-login-name))
!                 pass (funcall url-passwd-entry-func "Password: ")
                  retval (base64-encode-string (format "%s:%s" user pass))
                  byserv (assoc server (symbol-value url-basic-auth-storage)))
            (setcdr byserv
--- 102,108 ----
          (progn
            (setq user (read-string (url-auth-user-prompt url realm)
                                    (user-real-login-name))
!                 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,166 ****
         ((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: ")
                url-digest-auth-storage
                (cons (list server
                            (cons path
--- 160,166 ----
         ((and prompt (not byserv))
          (setq user (read-string (url-auth-user-prompt url realm)
                                  (user-real-login-name))
!               pass (read-passwd "Password: ")
                url-digest-auth-storage
                (cons (list server
                            (cons path
***************
*** 187,193 ****
              (progn
                (setq user (read-string (url-auth-user-prompt url realm)
                                        (user-real-login-name))
!                     pass (funcall url-passwd-entry-func "Password: ")
                      retval (setq retval
                                   (cons user
                                         (url-digest-auth-create-key
--- 187,193 ----
              (progn
                (setq user (read-string (url-auth-user-prompt url realm)
                                        (user-real-login-name))
!                     pass (read-passwd "Password: ")
                      retval (setq retval
                                   (cons user
                                         (url-digest-auth-create-key