1 Return-Path: <markwalters1009@gmail.com>
\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 001D9431FAF
\r
6 for <notmuch@notmuchmail.org>; Sat, 24 Nov 2012 05:21:14 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
11 X-Spam-Status: No, score=0.201 tagged_above=-999 required=5
\r
12 tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,
\r
13 FREEMAIL_ENVFROM_END_DIGIT=1, FREEMAIL_FROM=0.001,
\r
14 RCVD_IN_DNSWL_LOW=-0.7] autolearn=disabled
\r
15 Received: from olra.theworths.org ([127.0.0.1])
\r
16 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
17 with ESMTP id UW4HMZRQF9L2 for <notmuch@notmuchmail.org>;
\r
18 Sat, 24 Nov 2012 05:21:12 -0800 (PST)
\r
19 Received: from mail-wi0-f175.google.com (mail-wi0-f175.google.com
\r
20 [209.85.212.175]) (using TLSv1 with cipher RC4-SHA (128/128 bits))
\r
21 (No client certificate requested)
\r
22 by olra.theworths.org (Postfix) with ESMTPS id 9563B431FBD
\r
23 for <notmuch@notmuchmail.org>; Sat, 24 Nov 2012 05:21:10 -0800 (PST)
\r
24 Received: by mail-wi0-f175.google.com with SMTP id hm11so1793227wib.2
\r
25 for <notmuch@notmuchmail.org>; Sat, 24 Nov 2012 05:21:10 -0800 (PST)
\r
26 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;
\r
27 h=from:to:cc:subject:date:message-id:x-mailer:in-reply-to:references;
\r
28 bh=zYeU6H4wUr10CB4Dr3R+Wc6zFiqS7r2NK2K+hw7KhLA=;
\r
29 b=GMRCXkH/PXpRr9z5aB9sc+27koE9td4f42EhXDO2dsXK9xHs13ZR9S0LN23kuIlmXD
\r
30 YjZxaniCOYi6toH5/Zl6I85pl0e4F66x4bYO1JtZlc8CBxLZ4kl+104imCNPVrwk8ZHv
\r
31 5UVtzowpwTLF6iNLXQcmUsqYW+jHMQENhjszVpk9CMql6v5fFsv+ZQQpImzkxTC2NNt5
\r
32 gmSot7vWcNhVKLi1rUDR5YAZJQOsE0AxLajEbfTIZV9LL+TpvcDjBnARzWtg64l07hKJ
\r
33 iAg+VMYXLgpFEXzEMgtpWDgTm0QtXd2ag/9uZ+OKjf3XRm/rtpIO/AuKbV5m8JCGMJFk
\r
35 Received: by 10.180.85.165 with SMTP id i5mr6336441wiz.11.1353763270219;
\r
36 Sat, 24 Nov 2012 05:21:10 -0800 (PST)
\r
37 Received: from localhost (93-97-24-31.zone5.bethere.co.uk. [93.97.24.31])
\r
38 by mx.google.com with ESMTPS id i6sm12676635wix.5.2012.11.24.05.21.08
\r
39 (version=TLSv1/SSLv3 cipher=OTHER);
\r
40 Sat, 24 Nov 2012 05:21:09 -0800 (PST)
\r
41 From: markwalters1009 <markwalters1009@gmail.com>
\r
42 To: notmuch@notmuchmail.org
\r
43 Subject: [PATCH v2 4/7] emacs: make emacs tagging use the stdin query
\r
45 Date: Sat, 24 Nov 2012 13:20:53 +0000
\r
46 Message-Id: <1353763256-32336-5-git-send-email-markwalters1009@gmail.com>
\r
47 X-Mailer: git-send-email 1.7.9.1
\r
48 In-Reply-To: <1353763256-32336-1-git-send-email-markwalters1009@gmail.com>
\r
49 References: <1353763256-32336-1-git-send-email-markwalters1009@gmail.com>
\r
50 X-BeenThere: notmuch@notmuchmail.org
\r
51 X-Mailman-Version: 2.1.13
\r
53 List-Id: "Use and development of the notmuch mail system."
\r
54 <notmuch.notmuchmail.org>
\r
55 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
56 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
57 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
58 List-Post: <mailto:notmuch@notmuchmail.org>
\r
59 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
60 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
61 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
62 X-List-Received-Date: Sat, 24 Nov 2012 13:21:14 -0000
\r
64 From: Mark Walters <markwalters1009@gmail.com>
\r
66 In preparation for the use of large queries in some cases make tagging
\r
67 from emacs use the new query on stdin functionality. Currently uses
\r
68 this for all tagging (as I could not see a reason not to).
\r
70 emacs/notmuch-tag.el | 14 +++++++++-----
\r
71 1 files changed, 9 insertions(+), 5 deletions(-)
\r
73 diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el
\r
74 index 4fce3a9..4634b0d 100644
\r
75 --- a/emacs/notmuch-tag.el
\r
76 +++ b/emacs/notmuch-tag.el
\r
77 @@ -59,9 +59,10 @@ the messages that were tagged"
\r
78 (setq search-terms (list "*")))
\r
80 (with-output-to-string
\r
81 - (with-current-buffer standard-output
\r
82 - (apply 'call-process notmuch-command nil t
\r
83 - nil "search" "--output=tags" "--exclude=false" search-terms)))
\r
85 + (insert (mapconcat 'identity search-terms " "))
\r
86 + (apply 'call-process-region (point-min) (point-max) notmuch-command nil
\r
87 + standard-output nil "search" "--output=tags" "--exclude=false" (list "-"))))
\r
90 (defun notmuch-select-tag-with-completion (prompt &rest search-terms)
\r
91 @@ -134,8 +135,11 @@ notmuch-after-tag-hook will be run."
\r
93 (unless (null tag-changes)
\r
94 (run-hooks 'notmuch-before-tag-hook)
\r
95 - (apply 'notmuch-call-notmuch-process "tag"
\r
96 - (append tag-changes (list "--" query)))
\r
99 + (apply 'notmuch-call-notmuch-process-region
\r
100 + (point-min) (point-max)
\r
101 + "tag" (append tag-changes (list "--" "-"))))
\r
102 (run-hooks 'notmuch-after-tag-hook))
\r
103 ;; in all cases we return tag-changes as a list
\r