(recentf-cleanup): Swap tests for exclusion and accessibility.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ef1861b443f39ad2a8010bde1c33a4e2297d863..38c4e9fa585e860a6a080022aedf75a9e57edc8e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-02  Tak Ota  <Takaaki.Ota@am.sony.com>  (tiny change)
+
+       * recentf.el (recentf-cleanup): Swap tests for exclusion and
+       accessibility.
+
 2003-05-01  Eduardo Mu\e,Aq\e(Boz  <emufer@terra.es>  (tiny change)
 
        * ls-lisp.el (ls-lisp-format-file-size): New function to implement

diff --git a/lisp/recentf.el b/lisp/recentf.el
index 698e848ce6a4da955498a3d7b65a63bf8f212729..4bfcf79aa3abcd1d96ad62ae26d4baf75171e195 100644 (file)
--- a/lisp/recentf.el
+++ b/lisp/recentf.el
@@ -8,7 +8,7 @@
 ;; Maintainer: FSF
 ;; Keywords: files
 
-(defconst recentf-version "$Revision$")
+(defconst recentf-version "$Revision: 1.23 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1127,7 +1127,7 @@ Read data from the file specified by `recentf-save-file'."
   (message "Cleaning up the recentf list...")
   (let (newlist)
     (dolist (f recentf-list)
-      (if (and (file-readable-p f) (recentf-include-p f))
+      (if (and (recentf-include-p f) (file-readable-p f))
           (push f newlist)
         (message "File %s removed from the recentf list" f)))
     (setq recentf-list (nreverse newlist))