X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-tree.el;h=a06afc2d1c0e1ef6d0d42f8e73d333b30895ded5;hp=e254593f835bd06ccf522e6706d1ee3987f25b97;hb=692acdf9da2ca93d46259ca31780ed632c2975c4;hpb=65fc5ea758b959ceec173b90e57cbca22f57c4a2 diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el index e254593f..a06afc2d 100644 --- a/emacs/notmuch-tree.el +++ b/emacs/notmuch-tree.el @@ -791,8 +791,7 @@ search results instead." (notmuch-tree-from-search-thread)))) (defun notmuch-tree-next-thread (&optional previous) - "Move to the next thread in the current tree or parent search -results + "Move to the next thread in the current tree or parent search results. If PREVIOUS is non-nil, move to the previous thread in the tree or search results instead." @@ -802,14 +801,13 @@ search results instead." (notmuch-tree-next-thread-from-search previous))) (defun notmuch-tree-prev-thread () - "Move to the previous thread in the current tree or parent search -results" + "Move to the previous thread in the current tree or parent search results." (interactive) (notmuch-tree-next-thread t)) (defun notmuch-tree-thread-mapcar (function) - "Iterate through all messages in the current thread - and call FUNCTION for side effects." + "Call FUNCTION for each message in the current thread. +FUNCTION is called for side effects only." (save-excursion (notmuch-tree-thread-top) (cl-loop collect (funcall function)