Previously notmuch-pick had no thread based functionality. This adds a macro to iterate through all messages in a thread. To simplify this it adds a text-property marker to the first message of each thread. --- contrib/notmuch-pick/notmuch-pick.el | 28 ++++++++++++++++++++++++++++ 1 files changed, 28 insertions(+), 0 deletions(-) diff --git a/contrib/notmuch-pick/notmuch-pick.el b/contrib/notmuch-pick/notmuch-pick.el index b474231..77e15bb 100644 --- a/contrib/notmuch-pick/notmuch-pick.el +++ b/contrib/notmuch-pick/notmuch-pick.el @@ -552,6 +552,33 @@ than only the current message." (message (format "Command '%s' exited abnormally with code %d" shell-command exit-code))))))) +(defun notmuch-pick-thread-top () + (interactive) + (while (not (notmuch-pick-get-prop :first)) + (forward-line -1))) + +(defmacro notmuch-pick-thread-mapc (function) + "Iterate through all messages in the current thread + and call FUNCTION for side effects." + (save-excursion + (notmuch-pick-thread-top) + (loop do (progn + (funcall function) + (forward-line)) + while (and (notmuch-pick-get-message-properties) + (not (notmuch-pick-get-prop :first)))))) + +(defun notmuch-pick-get-messages-ids-thread () + "Return all id: queries of messages in the current thread." + (let ((message-ids)) + (notmuch-pick-thread-mapc + (lambda () (push (notmuch-pick-get-message-id) message-ids))) + message-ids)) + +(defun notmuch-pick-get-messages-ids-thread-search () + "Return a search string for all message ids of messages in the +current thread." + (mapconcat 'identity (notmuch-pick-get-messages-ids-thread) " or ")) (defun notmuch-pick-clean-address (address) "Try to clean a single email ADDRESS for display. Return AUTHOR_NAME if present, otherwise return AUTHOR_EMAIL. Return @@ -638,6 +665,7 @@ unchanged ADDRESS if parsing fails." (push "├" tree-status))) (push (concat (if replies "┬" "─") "►") tree-status) + (plist-put msg :first (and first (eq 0 depth))) (notmuch-pick-insert-msg (plist-put msg :tree-status tree-status)) (pop tree-status) (pop tree-status) -- 1.7.9.1