diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/emacs/config/functions.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tools/emacs/config/functions.el b/tools/emacs/config/functions.el index feec2bb60c8d..512f056cdc98 100644 --- a/tools/emacs/config/functions.el +++ b/tools/emacs/config/functions.el @@ -290,14 +290,14 @@ (-map #'car tag-counts) "Tag:" (-map #'cdr tag-counts) "Count:"))) -(defun notmuch-show-open-or-close-subthread (&optional open) +(defun notmuch-show-open-or-close-subthread (&optional prefix) "Open or close the subthread from (and including) the message at point." - (interactive) + (interactive "P") (save-excursion (let ((current-depth (map-elt (notmuch-show-get-message-properties) :depth 0))) - (loop do (notmuch-show-message-visible (notmuch-show-get-message-properties) open) + (loop do (notmuch-show-message-visible (notmuch-show-get-message-properties) prefix) until (or (not (notmuch-show-goto-message-next)) - (= (map-elt (notmuch-show-get-message-properties)) current-depth))))) + (= (map-elt (notmuch-show-get-message-properties) :depth) current-depth))))) (force-window-update)) (provide 'functions) |