# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1051877594 0
# Node ID cfbb46a2ee9cabc9da57de3d018ae11f266ecfd3
# Parent  828e021d2d931f5bc6886b1a575a4c063b305445
(recentf-cleanup): Swap tests for exclusion and accessibility.

diff -r 828e021d2d93 -r cfbb46a2ee9c lisp/recentf.el
--- a/lisp/recentf.el	Thu May 01 20:15:04 2003 +0000
+++ b/lisp/recentf.el	Fri May 02 12:13:14 2003 +0000
@@ -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 @@
   (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))