Hello,
Thank you all for notmuch.
I just thought I'd share this short little defun. My normal use case is for
permanently deleting emails from my index.
(defun notmuch-dired-search ()
"Convert current notmuch search buffer to dired listing."
(interactive)
(if (not notmuch-search-query-string)
(message "No search query could be found.")
(let*
((listing (make-temp-file "listing-"))
(cmd (format "notmuch search --output=files --format=sexp %s > %s"
notmuch-search-query-string
listing))
(temp1 (shell-command-to-string cmd))
(files (read (with-temp-buffer
(insert-file-contents listing)
(buffer-string)))))
(push "*notmuch-dired*" files)
(dired files))))
Best wishes,
Stephen
_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org
