--- a/lisp/prim/files.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/prim/files.el	Mon Aug 13 09:13:56 2007 +0200
@@ -2577,7 +2577,10 @@
 	files
 	(buffer (get-buffer-create " *recover*")))
     ;; #### dired-do-flagged-delete in FSF.
-    (dired-do-deletions t)
+    ;; This version is for ange-ftp
+    ;;(dired-do-deletions t)
+    ;T This version is for efs
+    (dired-expunge-deletions)
     (unwind-protect
 	(save-excursion
 	  ;; Read in the auto-save-list file.
@@ -2936,4 +2939,13 @@
 	filename
       (error "Apparently circular symlink path"))))
 
+;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
+(defun file-remote-p (file)
+  "Test whether file resides on the local system.
+The special value 'unknown is returned if no remote file access package
+has been loaded."
+  (cond ((fboundp 'efs-ftp-path) (efs-ftp-path name))
+	((fboundp 'ange-ftp-ftp-name) (ange-ftp-ftp-name name))
+	(t 'unknown)))
+
 ;;; files.el ends here