diff options
| author | David Bremner <david@tethera.net> | 2022-06-28 08:50:55 -0300 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2022-07-03 17:08:08 -0300 |
| commit | 5500868bd96f9461a230d16839591cb7ebc035df (patch) | |
| tree | b37943d715d4f738d7a03e4c81c04b197f87ad09 /emacs/notmuch-lib.el | |
| parent | 6a9ae990990848ec99107f2e2e6b6ae12dcd33df (diff) | |
emacs: mark notmuch-query.el as obsolete
The only functionality actually used by notmuch is the base function
notmuch-query-get-threads; the other functions in this file have
nothing to do with that (single) use. Move that function into
notmuch-lib.el and rename to reflect use. Deprecate the other
functions in notmuch-query.el.
Diffstat (limited to 'emacs/notmuch-lib.el')
| -rw-r--r-- | emacs/notmuch-lib.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 1e631d0e..cc706924 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -1029,6 +1029,18 @@ status." (defvar-local notmuch-show-process-crypto nil) +(defun notmuch--run-show (search-terms) + "Return a list of threads of messages matching SEARCH-TERMS. + +A thread is a forest or list of trees. A tree is a two element +list where the first element is a message, and the second element +is a possibly empty forest of replies." + (let ((args '("show" "--format=sexp" "--format-version=5"))) + (when notmuch-show-process-crypto + (setq args (append args '("--decrypt=true")))) + (setq args (append args search-terms)) + (apply #'notmuch-call-notmuch-sexp args))) + ;;; Generic Utilities (defun notmuch-interactive-region () |