--- a/.emacs-my	Wed Jul 09 23:22:31 2014 +0300
+++ b/.emacs-my	Tue Jul 22 00:37:47 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")
@@ -267,7 +275,7 @@
   (setq split-width-threshold nil)
   )
 
-(setq frame-title-format "EMACS: %b")
+(setq frame-title-format '("EMACS " system-name ": %b"))
 
 ;; Deprecated: `default-header-line-format', `default-mode-line-format'.
 ;; For `mode-line-format' default value was used.