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

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ef1861b443..38c4e9fa585 100644
--- 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,Aq(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 698e848ce6a..4bfcf79aa3a 100644
--- 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))