+(defun notmuch-select-tag-with-completion (prompt)
+ (let ((tag-list
+ (with-output-to-string
+ (with-current-buffer standard-output
+ (call-process notmuch-command nil t nil "search-tags")))))
+ (completing-read prompt (split-string tag-list "\n+" t) nil nil nil)))
+