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 5C5A7429E30
\r
6 for <notmuch@notmuchmail.org>; Wed, 19 Feb 2014 12:21:01 -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 qROF5QFVxSyQ for <notmuch@notmuchmail.org>;
\r
18 Wed, 19 Feb 2014 12:20:55 -0800 (PST)
\r
19 Received: from mail-wg0-f54.google.com (mail-wg0-f54.google.com
\r
20 [74.125.82.54]) (using TLSv1 with cipher RC4-SHA (128/128 bits)) (No client
\r
21 certificate requested) by olra.theworths.org (Postfix) with ESMTPS id
\r
22 2E3E2431FC7 for <notmuch@notmuchmail.org>; Wed, 19 Feb 2014 12:20:44 -0800
\r
24 Received: by mail-wg0-f54.google.com with SMTP id l18so770625wgh.9
\r
25 for <notmuch@notmuchmail.org>; Wed, 19 Feb 2014 12:20:43 -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:in-reply-to:references
\r
28 :mime-version:content-type:content-transfer-encoding;
\r
29 bh=naTFot0UsjTkMuxbjZl/TA4gHFtCQLF3EyC0+KUYm1Y=;
\r
30 b=oKo6ZW5sOHOA1WC2OHHlA08HzMJPslmmoDAdpCmBFbGuz9MHX4zyGAS0+x2kTA99rt
\r
31 8NzOlXxb+NLhgqVfaPMSFbxz/ec7AOCAVd4VQ842AC1OGdGAE1MGqI+bBHpJpGDMInBq
\r
32 +52Kh2z9O8OFepy/FO+mzN9jnXPol8HefHs7/+72VrDdZC6mx22OEaZMDTbi+vn9132e
\r
33 SD0hV6s7Zq8v4oqkA4mpXhIYM7XmnXLgwvMNChnHqApppNexXjNbWac22ISA9rfiXadu
\r
34 slhgkfel4Dt5kXBCUCY7eWPYflZJ0YTbnFAZFxEdNg+2VZQNJy6DAHeOS6jS3pNN7A+g
\r
36 X-Received: by 10.180.73.173 with SMTP id m13mr3434758wiv.52.1392841243090;
\r
37 Wed, 19 Feb 2014 12:20:43 -0800 (PST)
\r
38 Received: from localhost (93-97-24-31.zone5.bethere.co.uk. [93.97.24.31])
\r
39 by mx.google.com with ESMTPSA id fm3sm54847340wib.8.2014.02.19.12.20.42
\r
40 for <multiple recipients>
\r
41 (version=TLSv1.2 cipher=RC4-SHA bits=128/128);
\r
42 Wed, 19 Feb 2014 12:20:42 -0800 (PST)
\r
43 From: Mark Walters <markwalters1009@gmail.com>
\r
44 To: notmuch@notmuchmail.org
\r
45 Subject: [PATCH v2 7/7] emacs: tree: use orig-tags in search
\r
46 Date: Wed, 19 Feb 2014 20:20:12 +0000
\r
47 Message-Id: <1392841212-8494-8-git-send-email-markwalters1009@gmail.com>
\r
48 X-Mailer: git-send-email 1.7.9.1
\r
49 In-Reply-To: <1392841212-8494-1-git-send-email-markwalters1009@gmail.com>
\r
50 References: <1392841212-8494-1-git-send-email-markwalters1009@gmail.com>
\r
52 Content-Type: text/plain; charset=UTF-8
\r
53 Content-Transfer-Encoding: 8bit
\r
54 X-BeenThere: notmuch@notmuchmail.org
\r
55 X-Mailman-Version: 2.1.13
\r
57 List-Id: "Use and development of the notmuch mail system."
\r
58 <notmuch.notmuchmail.org>
\r
59 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
60 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
61 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
62 List-Post: <mailto:notmuch@notmuchmail.org>
\r
63 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
64 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
65 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
66 X-List-Received-Date: Wed, 19 Feb 2014 20:21:01 -0000
\r
68 This uses the recent functionality to show the tag changes in the tree
\r
69 buffer. Currently this is only used to show changes the tree buffer
\r
70 makes itself: i.e., it does not make display any changes reflecting
\r
71 tagging done by other notmuch-buffers.
\r
73 emacs/notmuch-tree.el | 9 ++++++---
\r
74 1 files changed, 6 insertions(+), 3 deletions(-)
\r
76 diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
\r
77 index 7080e6f..4de69c8 100644
\r
78 --- a/emacs/notmuch-tree.el
\r
79 +++ b/emacs/notmuch-tree.el
\r
80 @@ -701,10 +701,11 @@ unchanged ADDRESS if parsing fails."
\r
82 ((string-equal field "tags")
\r
83 (let ((tags (plist-get msg :tags))
\r
84 + (orig-tags (plist-get msg :orig-tags))
\r
86 'notmuch-tree-match-tag-face
\r
87 'notmuch-tree-no-match-tag-face)))
\r
88 - (format format-string (notmuch-tag-format-tags tags tags face)))))))
\r
89 + (format format-string (notmuch-tag-format-tags tags orig-tags face)))))))
\r
91 (defun notmuch-tree-format-field-list (field-list msg)
\r
92 "Format fields of MSG according to FIELD-LIST and return string"
\r
93 @@ -766,8 +767,10 @@ message together with all its descendents."
\r
94 (push "├" tree-status)))
\r
96 (push (concat (if replies "┬" "─") "►") tree-status)
\r
97 - (plist-put msg :first (and first (eq 0 depth)))
\r
98 - (notmuch-tree-goto-and-insert-msg (plist-put msg :tree-status tree-status))
\r
99 + (setq msg (plist-put msg :first (and first (eq 0 depth))))
\r
100 + (setq msg (plist-put msg :tree-status tree-status))
\r
101 + (setq msg (plist-put msg :orig-tags (plist-get msg :tags)))
\r
102 + (notmuch-tree-goto-and-insert-msg msg)
\r