Helm/notmuch: Fix helm-notmuch-search

2019-03-18 18:57:29 +01:00 · 2019-03-18 18:57:29 +01:00 · 9577269dcb
parent 100c826cd4
commit 9577269dcb
1 changed files with 7 additions and 0 deletions
--- a/.emacs.d/lisp/patch-helm-notmuch.el
+++ b/.emacs.d/lisp/patch-helm-notmuch.el
@ -74,4 +74,11 @@
                                            helm-pattern))
                             (current-buffer))))))

+(defun helm-notmuch-search (candidate)
+  "Display notmuch query in notmuch-search buffer, highlighting CANDIDATE."
+  (notmuch-search (helm-notmuch-maybe-match-incomplete
+                   (with-helm-buffer helm-input-local))
+                  nil
+                  (replace-regexp-in-string "^thread:" "" candidate)))
+
 (provide 'patch-helm-notmuch)