.emacs-my
changeset 911 ce5cb0a281ee
parent 910 c6b4be8608b3
child 912 a3b18cbc7293
--- a/.emacs-my	Sun Aug 12 15:24:33 2012 +0300
+++ b/.emacs-my	Tue Aug 14 11:40:30 2012 +0300
@@ -1539,6 +1539,15 @@
 ;;         ;; All the comp groups in one score file
 ;;         ("^comp" "comp.SCORE")))
 
+;; Make C-Up, C-Down more like across paragraph moving.
+(eval-after-load 'gnus
+  '(progn
+     (define-key gnus-summary-mode-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1)))
+     (define-key gnus-summary-mode-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1)))
+     (define-key gnus-summary-mode-map [(control down)] 'gnus-summary-next-thread)
+     (define-key gnus-summary-mode-map [(control up)] 'gnus-summary-prev-thread)
+     ))
+
 ;; (setq imap-log t)
 
 ;; (setq mail-user-agent 'mh-e-user-agent)