From 6216083f47e385c9c30810431a55d5563c24a766 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sun, 11 Nov 2012 14:27:10 +0100 Subject: [PATCH] mu4e: add mu4e-scroll-{up,down}, use {beginning,end}-of-buffer --- mu4e/mu4e-view.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index d0d70951..d974d642 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -524,14 +524,10 @@ at POINT, or if nil, at (point)." ;; intra-message navigation (define-key map (kbd "SPC") 'mu4e-view-scroll-up-or-next) - (define-key map (kbd "") - #'(lambda () (interactive) (goto-char (point-min)))) - (define-key map (kbd "") - #'(lambda () (interactive) (goto-char (point-max)))) - (define-key map (kbd "RET") - #'(lambda () (interactive) (scroll-up 1))) - (define-key map (kbd "") - #'(lambda () (interactive) (scroll-up -1))) + (define-key map (kbd "") 'beginning-of-buffer) + (define-key map (kbd "") 'end-of-buffer) + (define-key map (kbd "RET") 'mu4e-scroll-up) + (define-key map (kbd "") 'mu4e-scroll-up) ;; navigation between messages (define-key map "p" 'mu4e-view-headers-prev) @@ -1079,6 +1075,16 @@ non-nil, and we can't scroll-up anymore, go the next message." (when mu4e-view-scroll-to-next (mu4e-view-headers-next))))) +(defun mu4e-scroll-up () + "Scroll text of selected window up one line." + (interactive) + (scroll-up 1)) + +(defun mu4e-scroll-down () + "Scroll text of selected window down one line." + (interactive) + (scroll-down 1)) + (defun mu4e-view-unmark-all () "If we're in split-view, unmark all messages. Otherwise, warn user that unmarking only works in the header list."