--- a/lisp/w3/url-file.el	Mon Aug 13 08:48:43 2007 +0200
+++ b/lisp/w3/url-file.el	Mon Aug 13 08:49:20 2007 +0200
@@ -1,12 +1,12 @@
 ;;; url-file.el --- File retrieval code
 ;; Author: wmperry
-;; Created: 1996/12/30 14:25:26
-;; Version: 1.7
+;; Created: 1997/01/24 14:32:50
+;; Version: 1.9
 ;; Keywords: comm, data, processes
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
-;;; Copyright (c) 1996 Free Software Foundation, Inc.
+;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
 ;;;
 ;;; This file is not part of GNU Emacs, but the same permissions apply.
 ;;;
@@ -194,6 +194,7 @@
   ;; Find a file
   (let* ((urlobj (url-generic-parse-url url))
 	 (user (url-user urlobj))
+	 (pass (url-password urlobj))
 	 (site (url-host urlobj))
 	 (file (url-unhex-string (url-filename urlobj)))
 	 (dest (url-target urlobj))
@@ -211,6 +212,14 @@
 	    (setq y (1+ y)))))
 
     (url-clear-tmp-buffer)
+    (and user pass
+	 (cond
+	  ((featurep 'ange-ftp)
+	   (ange-ftp-set-passwd site user pass))
+	  ((or (featurep 'efs) (featurep 'efs-auto))
+	   (efs-set-passwd site user pass))
+	  (t
+	   nil)))
     (cond
      ((file-directory-p filename)
       (if url-use-hypertext-dired