From f99fc009fce8a2d49af31792f72e6f9ef38d037d Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Thu, 2 Apr 2020 21:59:18 +0100 Subject: fix(tools/emacs): Fix notmuch-show-open-or-close-subthread Accidentally dropped a key parameter, also restored interactive functionality via prefix arguments.. --- tools/emacs/config/functions.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'tools/emacs') 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) -- cgit 1.4.1