diff options
| -rw-r--r-- | contrib/notmuch-pick/notmuch-pick.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el index d0160144..f7caaa82 100644 --- a/contrib/notmuch-pick/notmuch-pick.el +++ b/contrib/notmuch-pick/notmuch-pick.el @@ -250,6 +250,8 @@ FUNC." (define-key map "p" 'notmuch-pick-prev-matching-message) (define-key map "N" 'notmuch-pick-next-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-add-tag) (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))) (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) "Iterate through all messages in the current thread and call FUNCTION for side effects." |