# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1111241369 0
# Node ID 1e67e22bcc1bf80ae5a20cf168177ef42b349151
# Parent  5381eb4b34ac2088abdaa5f6a70fe97f6ad592d0
(recentf-cleanup-remote): New variable.
(recentf-cleanup): Use it to conditionally check availablity of
remote files.

diff -r 5381eb4b34ac -r 1e67e22bcc1b lisp/recentf.el
--- a/lisp/recentf.el	Sat Mar 19 14:01:52 2005 +0000
+++ b/lisp/recentf.el	Sat Mar 19 14:09:29 2005 +0000
@@ -255,6 +255,11 @@
 If it returns nil, the filename is left unchanged."
   :group 'recentf
   :type 'function)
+
+(defcustom recentf-cleanup-remote t
+  "*non-nil means to auto cleanup remote files."
+  :group 'recentf
+  :type  'boolean)
 
 ;;; Utilities
 ;;
@@ -1169,7 +1174,10 @@
   (message "Cleaning up the recentf list...")
   (let (newlist)
     (dolist (f recentf-list)
-      (if (and (recentf-include-p f) (recentf-file-readable-p f))
+      (if (and (recentf-include-p f)
+	       (or (and (file-remote-p f)
+			(not recentf-cleanup-remote))
+		   (recentf-file-readable-p f)))
           (push f newlist)
         (message "File %s removed from the recentf list" f)))
     (setq recentf-list (nreverse newlist))