[PATCH v4] Add notmuch-show--build-queries.
Mark Walters
markwalters1009 at gmail.com
Thu Oct 20 13:19:33 PDT 2016
On Wed, 19 Oct 2016, Matt Armstrong <marmstrong at google.com> wrote:
> notmuch-show--build-buffer now queries a list of queries built by the
> former. This simplifies the logic. It also provides an easy place to
> experiment with alternate sets of queries for given notmuch-show-*
> variables (e.g. users can use advice-add to do so in a surgical way).
> ---
This version looks good to me +1
Best wishes
Mark
> emacs/notmuch-show.el | 35 +++++++++++++++++++++--------------
> 1 file changed, 21 insertions(+), 14 deletions(-)
>
> diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
> index 16ff45a..fcf7e6e 100644
> --- a/emacs/notmuch-show.el
> +++ b/emacs/notmuch-show.el
> @@ -1263,6 +1263,18 @@ matched."
> (message "No messages matched the query!")
> nil))))
>
> +(defun notmuch-show--build-queries (thread context)
> + "Return a list of queries to try for this search.
> +
> +THREAD and CONTEXT are both strings, though CONTEXT may be nil.
> +When CONTEXT is not nil, the first query is the conjunction of it
> +and THREAD. The next query is THREAD alone, and serves as a
> +fallback if the prior matches no messages."
> + (let (queries)
> + (push (list thread) queries)
> + (if context (push (list thread "and (" context ")") queries))
> + queries))
> +
> (defun notmuch-show--build-buffer (&optional state)
> "Display messages matching the current buffer context.
>
> @@ -1270,25 +1282,20 @@ Apply the previously saved STATE if supplied, otherwise show the
> first relevant message.
>
> If no messages match the query return NIL."
> - (let* ((basic-args (list notmuch-show-thread-id))
> - (args (if notmuch-show-query-context
> - (append (list "\'") basic-args
> - (list "and (" notmuch-show-query-context ")\'"))
> - (append (list "\'") basic-args (list "\'"))))
> - (cli-args (cons "--exclude=false"
> + (let* ((cli-args (cons "--exclude=false"
> (when notmuch-show-elide-non-matching-messages
> (list "--entire-thread=false"))))
> -
> - (forest (or (notmuch-query-get-threads (append cli-args args))
> - ;; If a query context reduced the number of
> - ;; results to zero, try again without it.
> - (and notmuch-show-query-context
> - (notmuch-query-get-threads (append cli-args basic-args)))))
> -
> + (queries (notmuch-show--build-queries
> + notmuch-show-thread-id notmuch-show-query-context))
> + (forest nil)
> ;; Must be reset every time we are going to start inserting
> ;; messages into the buffer.
> (notmuch-show-previous-subject ""))
> -
> + ;; Use results from the first query that returns some.
> + (while (and (not forest) queries)
> + (setq forest (notmuch-query-get-threads
> + (append cli-args (list "'") (car queries) (list "'"))))
> + (setq queries (cdr queries)))
> (when forest
> (notmuch-show-insert-forest forest)
>
> --
> 2.8.0.rc3.226.g39d4020
>
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> https://notmuchmail.org/mailman/listinfo/notmuch
More information about the notmuch
mailing list