debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

contrib: pick: bind M-p and M-n to prev/next thread

Browse source 
This adds functions to go to the previous or next thread to
pick. Prev-thread behaves similarly to prev-message in show: if you
are on the top line of a thread it will go to the top of the previous
thread, otherwise it will go to the top of the current thread. Next
thread will always go to the top of the next thread (or the end of
buffer). These are bound to "M-p" and "M-n" by default (matching the
bindings in show).
This commit is contained in:
Mark Walters 2013-08-25 20:55:34 +01:00 committed by David Bremner
parent 3edd9f127b
commit 9d2ac59a80
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
contrib/notmuch-pick/notmuch-pick.el
View file

@ -250,6 +250,8 @@ FUNC."
(define-key map "p" 'notmuch-pick-prev-matching-message) (define-key map "p" 'notmuch-pick-prev-matching-message)
(define-key map "N" 'notmuch-pick-next-message) (define-key map "N" 'notmuch-pick-next-message)
(define-key map "P" 'notmuch-pick-prev-message) (define-key map "P" 'notmuch-pick-prev-message)
(define-key map (kbd "M-p") 'notmuch-pick-prev-thread)
(define-key map (kbd "M-n") 'notmuch-pick-next-thread)
(define-key map "-" 'notmuch-pick-remove-tag) (define-key map "-" 'notmuch-pick-remove-tag)
(define-key map "+" 'notmuch-pick-add-tag) (define-key map "+" 'notmuch-pick-add-tag)
(define-key map "*" 'notmuch-pick-tag-thread) (define-key map "*" 'notmuch-pick-tag-thread)
@ -601,6 +603,17 @@ message will be \"unarchived\", i.e. the tag changes in
(while (not (or (notmuch-pick-get-prop :first) (eobp))) (while (not (or (notmuch-pick-get-prop :first) (eobp)))
(forward-line -1)))) (forward-line -1))))
(defun notmuch-pick-prev-thread ()
(interactive)
(forward-line -1)
(notmuch-pick-thread-top))
(defun notmuch-pick-next-thread ()
(interactive)
(forward-line 1)
(while (not (or (notmuch-pick-get-prop :first) (eobp)))
(forward-line 1)))
(defun notmuch-pick-thread-mapcar (function) (defun notmuch-pick-thread-mapcar (function)
"Iterate through all messages in the current thread "Iterate through all messages in the current thread
and call FUNCTION for side effects." and call FUNCTION for side effects."