[Emacs-diffs] Changes to emacs/lisp/recentf.el

[Eli Zaretskii]

Index: emacs/lisp/recentf.el
diff -c emacs/lisp/recentf.el:1.33 emacs/lisp/recentf.el:1.34
*** emacs/lisp/recentf.el:1.33  Wed Feb  9 15:50:41 2005
--- emacs/lisp/recentf.el       Sat Mar 19 14:09:29 2005
***************
*** 255,260 ****
--- 255,265 ----
  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,1175 ****
    (message "Cleaning up the recentf list...")
    (let (newlist)
      (dolist (f recentf-list)
!       (if (and (recentf-include-p f) (recentf-file-readable-p f))
            (push f newlist)
          (message "File %s removed from the recentf list" f)))
      (setq recentf-list (nreverse newlist))
--- 1174,1183 ----
    (message "Cleaning up the recentf list...")
    (let (newlist)
      (dolist (f recentf-list)
!       (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))