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

contrib: pick: thread tagging (including archiving) implemented

Browse source 
Previously pick had no actions based on the entire thread: this adds
some. Note in this version '*' is bound to `tag thread' which is not
consistent with search or show. However it still might be the most
natural thing (as it is similar to running * in the show pane).
This commit is contained in:
Mark Walters 2013-08-25 20:55:33 +01:00 committed by David Bremner
parent f8a8afe5c2
commit 3edd9f127b
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -241,6 +241,7 @@ FUNC."
;; The main pick bindings ;; The main pick bindings
(define-key map "q" 'notmuch-pick-quit) (define-key map "q" 'notmuch-pick-quit)
(define-key map "x" 'notmuch-pick-quit) (define-key map "x" 'notmuch-pick-quit)
(define-key map "A" 'notmuch-pick-archive-thread)
(define-key map "a" 'notmuch-pick-archive-message-then-next) (define-key map "a" 'notmuch-pick-archive-message-then-next)
(define-key map "=" 'notmuch-pick-refresh-view) (define-key map "=" 'notmuch-pick-refresh-view)
(define-key map "s" 'notmuch-pick-to-search) (define-key map "s" 'notmuch-pick-to-search)
@ -251,6 +252,7 @@ FUNC."
(define-key map "P" 'notmuch-pick-prev-message) (define-key map "P" 'notmuch-pick-prev-message)
(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-scroll-or-next) (define-key map " " 'notmuch-pick-scroll-or-next)
(define-key map "b" 'notmuch-pick-scroll-message-window-back) (define-key map "b" 'notmuch-pick-scroll-message-window-back)
map)) map))
@ -615,6 +617,31 @@ message will be \"unarchived\", i.e. the tag changes in
(notmuch-pick-thread-mapcar 'notmuch-pick-get-message-id) (notmuch-pick-thread-mapcar 'notmuch-pick-get-message-id)
" or ")) " or "))
(defun notmuch-pick-tag-thread (&optional tag-changes)
"Tag all messages in the current thread"
(interactive)
(when (notmuch-pick-get-message-properties)
(let ((tag-changes (notmuch-tag (notmuch-pick-get-messages-ids-thread-search) tag-changes)))
(notmuch-pick-thread-mapcar
(lambda () (notmuch-pick-tag-update-display tag-changes))))))
(defun notmuch-pick-archive-thread (&optional unarchive)
"Archive each message in thread.
Archive each message currently shown by applying the tag changes
in `notmuch-archive-tags' to each. If a prefix argument is given,
the messages will be \"unarchived\", i.e. the tag changes in
`notmuch-archive-tags' will be reversed.
Note: This command is safe from any race condition of new messages
being delivered to the same thread. It does not archive the
entire thread, but only the messages shown in the current
buffer."
(interactive "P")
(when notmuch-archive-tags
(notmuch-pick-tag-thread
(notmuch-tag-change-list notmuch-archive-tags unarchive))))
;; Functions below here display the pick buffer itself. ;; Functions below here display the pick buffer itself.
(defun notmuch-pick-clean-address (address) (defun notmuch-pick-clean-address (address)