(recentf-cleanup-remote): New variable.

(recentf-cleanup): Use it to conditionally check availablity of
remote files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f54f15b3e747f337f5c589607d2e3ba128897447..fd58d4e59d98e72a3e95461fbd9bcc1b20fc5d39 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-03-19  Michael R. Mauger  <mmaug@yahoo.com>
+
+       * recentf.el (recentf-cleanup-remote): New variable.
+       (recentf-cleanup): Use it to conditionally check availablity of
+       remote files.
+
 2005-03-19  Joe Edmonds <joe-bugs-debian-org@elem.com>  (tiny change)
 
        * emacs-lisp/lisp-mode.el (lisp-mode-variables): Recognize `@' in

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 169fee995297a4c1d063f8868304bf35cc223619..a6f3cf0bff760509d52c3992cb0cff41f81190ff 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -255,6 +255,11 @@ It is passed a filename to give a chance to transform it.
 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)
 \f
 ;;; Utilities
 ;;
@@ -1169,7 +1174,10 @@ empty `file-name-history' with the recent list."
   (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))