mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(tools/emacs): Fix notmuch-show-open-or-close-subthread

Browse source 
Accidentally dropped a key parameter, also restored interactive
functionality via prefix arguments..
This commit is contained in:
Vincent Ambo 2020-04-02 21:59:18 +01:00
parent 40d13cc87f
commit f99fc009fc
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/emacs/config/functions.el
View file

@ -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)