* mu4e: scrolling down takes you to next msg (but see mu4e-view-scroll-to-next)

This commit is contained in:
djcb
2012-10-17 12:07:57 +03:00
parent 269fc5374d
commit 29a94c4b2f
4 changed files with 90 additions and 60 deletions

18
NEWS
View File

@ -2,6 +2,18 @@
* NEWS (user visible changes) * NEWS (user visible changes)
** Release 0.9.9.x
*** mu4e
- scroll down in message view takes you to next message (but see
`mu4e-view-scroll-to-next')
* Old news
:PROPERTIES:
:VISIBILITY: folded
:END:
** Release 0.9.9 <2012-10-14> ** Release 0.9.9 <2012-10-14>
*** mu4e *** mu4e
@ -39,12 +51,6 @@
- handle db reopenings in the background - handle db reopenings in the background
* Old news
:PROPERTIES:
:VISIBILITY: folded
:END:
** Release 0.9.8.5 <2012-07-01> ** Release 0.9.8.5 <2012-07-01>
*** mu4e *** mu4e

19
TODO
View File

@ -45,13 +45,23 @@
- open links to mails through headers-mode somehow (i.e.., - open links to mails through headers-mode somehow (i.e..,
mu4e-view-message-with-msgid) mu4e-view-message-with-msgid)
- improve mouse interaction (i.e., cursor vs point) - improve mouse interaction (i.e., cursor vs point)
- check move + create new dir
- show counts of messages in searches (in main view) - show counts of messages in searches (in main view)
- show flush only if there's something to flush (and # of flushables) - show flush only if there's something to flush (and # of flushables)
- fix unsafe temp-file handling - fix unsafe temp-file handling
* Done (0.9.9.x)
* Done (0.9.9) - mu4e: scroll down > go to next message
* Done
:PROPERTIES:
:VISIBILITY: folded
:END:
** Done (0.9.9)
- make contacts in the view clickable (toggle long/short display, compose message) - make contacts in the view clickable (toggle long/short display, compose message)
- opening urls is too eager (now use M-RET for opening url at point, not just - opening urls is too eager (now use M-RET for opening url at point, not just
@ -105,11 +115,6 @@
- actions for /all/ headers, actions for /all/ attachment - actions for /all/ headers, actions for /all/ attachment
- handle attached messages with attachments - handle attached messages with attachments
* Done
:PROPERTIES:
:VISIBILITY: folded
:END:
** Done (0.8.9.5) ** Done (0.8.9.5)
- make next/prev header respect prefix argument (Jacek's patch) - make next/prev header respect prefix argument (Jacek's patch)

View File

@ -79,6 +79,11 @@ contact."
`mu4e-show-image' is non-nil." `mu4e-show-image' is non-nil."
:group 'mu4e-view) :group 'mu4e-view)
(defcustom mu4e-view-scroll-to-next t
"If non-nil, move to the next message when calling
`mu4e-view-scroll-up-or-next' (typically bound to SPC) when at the
end of a message. Otherwise, don't move to the next message.")
(defvar mu4e-view-actions (defvar mu4e-view-actions
'( ("capture message" . mu4e-action-capture-message) '( ("capture message" . mu4e-action-capture-message)
("view as pdf" . mu4e-action-view-as-pdf)) ("view as pdf" . mu4e-action-view-as-pdf))
@ -510,7 +515,7 @@ at POINT, or if nil, at (point)."
(lambda () (interactive) (mu4e-headers-split-view-resize -1))) (lambda () (interactive) (mu4e-headers-split-view-resize -1)))
;; intra-message navigation ;; intra-message navigation
(define-key map (kbd "SPC") 'scroll-up) (define-key map (kbd "SPC") 'mu4e-view-scroll-up-or-next)
(define-key map (kbd "<home>") (define-key map (kbd "<home>")
#'(lambda () (interactive) (goto-char (point-min)))) #'(lambda () (interactive) (goto-char (point-min))))
(define-key map (kbd "<end>") (define-key map (kbd "<end>")
@ -1059,6 +1064,15 @@ attachments) in response to a (mu4e~proc-extract 'temp ... )."
"Return t if we're in split-view, nil otherwise." "Return t if we're in split-view, nil otherwise."
(member mu4e-split-view '(horizontal vertical))) (member mu4e-split-view '(horizontal vertical)))
(defun mu4e-view-scroll-up-or-next ()
"Scroll-up the current message; if mu4e-view-scroll-to-next is
non-nil, and we can't scroll-up anymore, go the next message."
(interactive)
(if (and mu4e-view-scroll-to-next
(zerop (- (point-max) (window-end nil t))))
(mu4e-view-headers-next)
(scroll-up)))
(defun mu4e-view-unmark-all () (defun mu4e-view-unmark-all ()
"If we're in split-view, unmark all messages. Otherwise, warn "If we're in split-view, unmark all messages. Otherwise, warn
user that unmarking only works in the header list." user that unmarking only works in the header list."

View File

@ -945,6 +945,9 @@ using @code{mu4e-view-hide-cited}, bound to @key{h}. If you want to do this
automatically for every message, invoke the function in your automatically for every message, invoke the function in your
@code{mu4e-view-mode-hook}. @code{mu4e-view-mode-hook}.
@item For search-related operations, see @ref{Searching}. @item For search-related operations, see @ref{Searching}.
@item You can scroll down the message using @key{SPC}; if you do this at the
end of a message,it automatically takes you to the next one. If you want to
prevent this behavior, set @code{mu4e-view-scroll-to-next} to @code{nil}.
@end itemize @end itemize
@node MSGV Keybindings @node MSGV Keybindings
@ -962,6 +965,8 @@ y select the headers view (if it's visible)
RET scroll down RET scroll down
M-RET open URL at point / attachment at point M-RET open URL at point / attachment at point
SPC scroll down, if at end, move to next message
searching searching
--------- ---------
s search s search