--- a/.emacs-my	Sat Jul 19 16:04:13 2014 +0300
+++ b/.emacs-my	Sun Jul 20 01:29:22 2014 +0300
@@ -14,18 +14,26 @@
 
 (setq recentf-save-file "~/.recentf")
 (when (eq system-type 'cygwin)
-  (setq recentf-save-file "~/.recentf-cygwin")
-  )
+  (setq recentf-save-file "~/.recentf-cygwin"))
+
+(setq recentf-auto-cleanup 'mode)
+;; Prevent TRAMP to login on remote host when loading. Its take time and ask passwords!
+(setq recentf-keep '(file-remote-p file-readable-p))
+(setq recentf-exclude                   ; Use ``M-x recentf-cleanup`` to update recentf-list.
+      '("/devel/[^/]*-\\(orig\\|tmp\\|xxx\\)"
+        "/devel/my-\\(merge\\|pull\\)/"))
+(setq recentf-max-saved-items 10000)
+
 (require 'recentf)
-;; Prevent TRAMP to login on remote host when loading.
-;; Its take time and ask passwords!
-(setq recentf-auto-cleanup 'never)
 (recentf-mode t)
-(setq recentf-max-saved-items 10000)
+
 (global-set-key (kbd "\e\eq")  'recentf-open-files)
 
 (setq recentf-max-menu-items 40)
-(setq recentf-menu-filter 'recentf-arrange-by-dir)
+(setq recentf-show-file-shortcuts-flag nil)
+
+;; (setq recentf-menu-filter 'recentf-arrange-by-dir) ; Too slow with dir widgets.
+(setq recentf-menu-filter 'recentf-sort-basenames-ascending)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "revert buffer")