--- a/.emacs-my	Mon Apr 26 17:07:08 2010 +0300
+++ b/.emacs-my	Tue May 04 23:34:38 2010 +0300
@@ -33,6 +33,16 @@
             lisp-mode-hook emacs-lisp-mode-hook)
   "List of development mode hooks.")
 
+(defvar my-scroll-margin-mode-hook-list
+  '(
+    vc-dir-mode-hook
+    recentf-dialog-mode-hook
+    org-agenda-grid-mode-hook           ; XXX for this item not worked!
+    log-view-mode-hook
+    diff-mode-hook
+    )
+  "List of mode hooks for enabling scroll margin.")
+
 (defvar my-text-mode-list
   '(outline-mode text-mode)
   "List of text modes.")
@@ -227,8 +237,7 @@
 (make-variable-buffer-local 'scroll-margin)
 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))
       ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4
-      (append my-text-mode-hook-list my-devel-mode-hook-list
-                           '(recentf-mode-hook)) )
+      (append my-text-mode-hook-list my-devel-mode-hook-list my-scroll-margin-mode-hook-list) )
 
 ;; ----------------------------------------------------------------------
 ;; searching.