1 Return-Path: <dme@fenchurch.hh.sledj.net>
\r
2 X-Original-To: notmuch@notmuchmail.org
\r
3 Delivered-To: notmuch@notmuchmail.org
\r
4 Received: from localhost (localhost [127.0.0.1])
\r
5 by olra.theworths.org (Postfix) with ESMTP id 21FCA431FD0
\r
6 for <notmuch@notmuchmail.org>; Fri, 5 Sep 2014 05:59:55 -0700 (PDT)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=0.379 tagged_above=-999 required=5
\r
12 tests=[NO_DNS_FOR_FROM=0.379] autolearn=disabled
\r
13 Received: from olra.theworths.org ([127.0.0.1])
\r
14 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
15 with ESMTP id dpsiG3j24rRM for <notmuch@notmuchmail.org>;
\r
16 Fri, 5 Sep 2014 05:59:51 -0700 (PDT)
\r
17 Received: from fenchurch.hh.sledj.net (disaster-area.hh.sledj.net
\r
19 by olra.theworths.org (Postfix) with ESMTP id 1D592431FC4
\r
20 for <notmuch@notmuchmail.org>; Fri, 5 Sep 2014 05:59:46 -0700 (PDT)
\r
21 Received: by fenchurch.hh.sledj.net (Postfix, from userid 501)
\r
22 id DD4931316557; Fri, 5 Sep 2014 13:59:29 +0100 (BST)
\r
23 From: David Edmondson <dme@dme.org>
\r
24 To: notmuch@notmuchmail.org
\r
25 Subject: [PATCH v1 1/3] emacs: Allow query to exclude the entire thread and
\r
27 Date: Fri, 5 Sep 2014 13:59:27 +0100
\r
28 Message-Id: <1409921969-65129-2-git-send-email-dme@dme.org>
\r
29 X-Mailer: git-send-email 1.8.5.2 (Apple Git-48)
\r
30 In-Reply-To: <1409921969-65129-1-git-send-email-dme@dme.org>
\r
31 References: <1409921969-65129-1-git-send-email-dme@dme.org>
\r
32 X-BeenThere: notmuch@notmuchmail.org
\r
33 X-Mailman-Version: 2.1.13
\r
35 List-Id: "Use and development of the notmuch mail system."
\r
36 <notmuch.notmuchmail.org>
\r
37 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
38 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
39 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
40 List-Post: <mailto:notmuch@notmuchmail.org>
\r
41 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
42 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
43 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
44 X-List-Received-Date: Fri, 05 Sep 2014 12:59:55 -0000
\r
46 Callers to `notmuch-query-get-threads' can optionally choose not to
\r
47 receive either the entire thread and/or the body of messages.
\r
49 This is intended to reduce the amount of output in cases where one or
\r
50 both of these items is not useful.
\r
52 emacs/notmuch-query.el | 7 ++++++-
\r
53 1 file changed, 6 insertions(+), 1 deletion(-)
\r
55 diff --git a/emacs/notmuch-query.el b/emacs/notmuch-query.el
\r
56 index d1daffc..f83ca9b 100644
\r
57 --- a/emacs/notmuch-query.el
\r
58 +++ b/emacs/notmuch-query.el
\r
61 (require 'notmuch-lib)
\r
63 -(defun notmuch-query-get-threads (search-terms)
\r
64 +(defun notmuch-query-get-threads (search-terms &optional exclude-entire-thread
\r
66 "Return a list of threads of messages matching SEARCH-TERMS.
\r
68 A thread is a forest or list of trees. A tree is a two element
\r
69 @@ -31,6 +32,10 @@ is a possibly empty forest of replies.
\r
70 (let ((args '("show" "--format=sexp" "--format-version=1")))
\r
71 (if notmuch-show-process-crypto
\r
72 (setq args (append args '("--decrypt"))))
\r
73 + (if exclude-entire-thread
\r
74 + (setq args (append args '("--entire-thread=false"))))
\r
76 + (setq args (append args '("--body=false"))))
\r
77 (setq args (append args search-terms))
\r
78 (apply #'notmuch-call-notmuch-sexp args)))
\r
81 1.8.5.2 (Apple Git-48)
\r