1127 |
(message "Cleaning up the recentf list...") |
(message "Cleaning up the recentf list...") |
1128 |
(let (newlist) |
(let (newlist) |
1129 |
(dolist (f recentf-list) |
(dolist (f recentf-list) |
1130 |
(if (and (file-readable-p f) (recentf-include-p f)) |
(if (and (recentf-include-p f) (file-readable-p f)) |
1131 |
(push f newlist) |
(push f newlist) |
1132 |
(message "File %s removed from the recentf list" f))) |
(message "File %s removed from the recentf list" f))) |
1133 |
(setq recentf-list (nreverse newlist)) |
(setq recentf-list (nreverse newlist)) |