about summary refs log tree commit diff
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@google.com>2020-04-02T20·59+0100
committerVincent Ambo <tazjin@google.com>2020-04-02T20·59+0100
commitf99fc009fce8a2d49af31792f72e6f9ef38d037d (patch)
tree0c03e863b535c07d3314631f10d2dce5d2018b75
parent40d13cc87f2e35cab5c5428f259153690cd58733 (diff)
fix(tools/emacs): Fix notmuch-show-open-or-close-subthread r/609
Accidentally dropped a key parameter, also restored interactive
functionality via prefix arguments..
-rw-r--r--tools/emacs/config/functions.el8
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)