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

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

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

revision 1.4.2.1 by miles, Thu Oct 14 08:49:52 2004 UTC revision 1.4.2.2 by miles, Fri Oct 22 10:13:34 2004 UTC
# Line 113  Emacs." Line 113  Emacs."
113                                       noproxy "") "\\)"))                                       noproxy "") "\\)"))
114                        url-proxy-services))))                        url-proxy-services))))
115    
     ;; Set the password entry funtion based on user defaults or guess  
     ;; based on which remote-file-access package they are using.  
     (cond  
      (url-passwd-entry-func nil)        ; Already been set  
      ((fboundp 'read-passwd)            ; Use secure password if available  
       (setq url-passwd-entry-func 'read-passwd))  
      ((or (featurep 'efs)               ; Using EFS  
           (featurep 'efs-auto))         ; or autoloading efs  
       (if (not (fboundp 'read-passwd))  
           (autoload 'read-passwd "passwd" "Read in a password" nil))  
       (setq url-passwd-entry-func 'read-passwd))  
      ((or (featurep 'ange-ftp)          ; Using ange-ftp  
           (and (boundp 'file-name-handler-alist)  
                (not (featurep 'xemacs)))) ; ??  
       (setq url-passwd-entry-func 'ange-ftp-read-passwd))  
      (t  
       (url-warn  
        'security  
        "(url-setup): Can't determine how to read passwords, winging it.")))  
     
116      (url-setup-privacy-info)      (url-setup-privacy-info)
117      (run-hooks 'url-load-hook)      (run-hooks 'url-load-hook)
118      (setq url-setup-done t)))      (setq url-setup-done t)))

Legend:
Removed from v.1.4.2.1  
changed lines
  Added in v.1.4.2.2

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