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 5A909431FC0
\r
6 for <notmuch@notmuchmail.org>; Fri, 14 Feb 2014 01:16:10 -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 DzwkZrnkM5mE for <notmuch@notmuchmail.org>;
\r
18 Fri, 14 Feb 2014 01:16:06 -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 EB91D431FBD for <notmuch@notmuchmail.org>; Fri, 14 Feb 2014 01:15:39 -0800
\r
24 Received: by mail-wg0-f54.google.com with SMTP id l18so186064wgh.21
\r
25 for <notmuch@notmuchmail.org>; Fri, 14 Feb 2014 01:15:37 -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=fiqfOMYGawyOflOdOHDxirA+gtU+CjbHtynsr56gwMc=;
\r
30 b=hh/Z1+Jkn823xxRarZu+htClbp8fOJRa4Z5v2j5fRkcqWWDDaJAk+W6MmvPMC+llT3
\r
31 BBag4elnBsHToBNrCZ83Kag5RDyRNQ2ZW7OR0lNLmuJnOZtTkeJ3dHLQN3J7xk0ohQWQ
\r
32 Vbrfu4bI1eeeZtd39vKp6Mg345oHhTSmNktAk8w5qJ8vedUI6OOd9hIGuF+r8o07PbYI
\r
33 dngXmyKd/ETBxmD3+3k6OHeHSjUqJZo7Ob41xOz00YYhAtwOKq9JBl66UH+tsngU9Dss
\r
34 2lCybVHY/wgcdi4F70ODNsy9a7ct2rEhLAWbGVIQBzBeIH+O5KhZaXDFK82HVNGQou0v
\r
36 X-Received: by 10.180.12.233 with SMTP id b9mr1287222wic.8.1392369337217;
\r
37 Fri, 14 Feb 2014 01:15:37 -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
\r
40 br10sm11145696wjb.3.2014.02.14.01.15.36 for <multiple recipients>
\r
41 (version=TLSv1.2 cipher=RC4-SHA bits=128/128);
\r
42 Fri, 14 Feb 2014 01:15:36 -0800 (PST)
\r
43 From: Mark Walters <markwalters1009@gmail.com>
\r
44 To: notmuch@notmuchmail.org,
\r
45 Austin Clements <amdragon@MIT.EDU>
\r
46 Subject: [WIP Patch 7/7] emacs: tree: use orig-tags in search
\r
47 Date: Fri, 14 Feb 2014 09:15:19 +0000
\r
48 Message-Id: <1392369319-24508-8-git-send-email-markwalters1009@gmail.com>
\r
49 X-Mailer: git-send-email 1.7.9.1
\r
50 In-Reply-To: <1392369319-24508-1-git-send-email-markwalters1009@gmail.com>
\r
51 References: <1392369319-24508-1-git-send-email-markwalters1009@gmail.com>
\r
53 Content-Type: text/plain; charset=UTF-8
\r
54 Content-Transfer-Encoding: 8bit
\r
55 X-BeenThere: notmuch@notmuchmail.org
\r
56 X-Mailman-Version: 2.1.13
\r
58 List-Id: "Use and development of the notmuch mail system."
\r
59 <notmuch.notmuchmail.org>
\r
60 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
61 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
62 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
63 List-Post: <mailto:notmuch@notmuchmail.org>
\r
64 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
65 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
66 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
67 X-List-Received-Date: Fri, 14 Feb 2014 09:16:10 -0000
\r
69 This uses the recent functionality to show the tag changes in the tree
\r
70 buffer. Currently this is only used to show changes the tree buffer
\r
71 makes itself: i.e., it does not make display any changes reflecting
\r
72 tagging done by other notmuch-buffers.
\r
74 emacs/notmuch-tree.el | 9 ++++++---
\r
75 1 files changed, 6 insertions(+), 3 deletions(-)
\r
77 diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
\r
78 index b37e2cd..0f4cd47 100644
\r
79 --- a/emacs/notmuch-tree.el
\r
80 +++ b/emacs/notmuch-tree.el
\r
81 @@ -701,10 +701,11 @@ unchanged ADDRESS if parsing fails."
\r
83 ((string-equal field "tags")
\r
84 (let ((tags (plist-get msg :tags))
\r
85 + (orig-tags (plist-get msg :orig-tags))
\r
87 'notmuch-tree-match-tag-face
\r
88 'notmuch-tree-no-match-tag-face)))
\r
89 - (format format-string (notmuch-tag-format-tags tags tags face)))))))
\r
90 + (format format-string (notmuch-tag-format-tags tags orig-tags face)))))))
\r
92 (defun notmuch-tree-format-field-list (field-list msg)
\r
93 "Format fields of MSG according to FIELD-LIST and return string"
\r
94 @@ -766,8 +767,10 @@ message together with all its descendents."
\r
95 (push "├" tree-status)))
\r
97 (push (concat (if replies "┬" "─") "►") tree-status)
\r
98 - (plist-put msg :first (and first (eq 0 depth)))
\r
99 - (notmuch-tree-goto-and-insert-msg (plist-put msg :tree-status tree-status))
\r
100 + (setq msg (plist-put msg :first (and first (eq 0 depth))))
\r
101 + (setq msg (plist-put msg :tree-status tree-status))
\r
102 + (setq msg (plist-put msg :orig-tags (plist-get msg :tags)))
\r
103 + (notmuch-tree-goto-and-insert-msg msg)
\r