+(defvar liece-read-passwd nil)
+(defun liece-read-passwd (prompt)
+ (if (not liece-read-passwd)
+ (if (functionp 'read-passwd)
+ (setq liece-read-passwd 'read-passwd)
+ (if (load "passwd" t)
+ (setq liece-read-passwd 'read-passwd)
+ (autoload 'ange-ftp-read-passwd "ange-ftp")
+ (setq liece-read-passwd 'ange-ftp-read-passwd))))
+ (funcall liece-read-passwd prompt))
+