# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 930858162 0
# Node ID 76764b2157af07e08050d20758c770b339e293b4
# Parent  15cba2bd779a4b7142970af55916360587b90ff0
(untranslated-canonical-name): Avoid expanding
ange-ftp file names, which might force ange-ftp to prompt for a
password.

diff -r 15cba2bd779a -r 76764b2157af lisp/dos-w32.el
--- a/lisp/dos-w32.el	Thu Jul 01 19:40:37 1999 +0000
+++ b/lisp/dos-w32.el	Thu Jul 01 19:42:42 1999 +0000
@@ -208,7 +208,10 @@
 		    filename nil))
 	;; Use expand-file-name to canonicalize directory separators, except
 	;; with bare drive letters (which would have the cwd appended).
-	(if (string-match "^.:$" name)
+	;; Avoid expanding names that could trigger ange-ftp to prompt
+	;; for passwords, though.
+	(if (or (string-match "^.:$" name)
+		(string-match "^/[^/:]+:" name))
 	    name
 	  (expand-file-name name)))
     filename))