b1/3904bbb240b88c331c519bc3c36f889e9b3e0e

   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 2A993431FD0\r
   6         for <notmuch@notmuchmail.org>; Sat, 11 Jan 2014 13:50:08 -0800 (PST)\r
   7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
   8 X-Spam-Flag: NO\r
   9 X-Spam-Score: 0.201\r
  10 X-Spam-Level: \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 4DtpIr0WpfrT for <notmuch@notmuchmail.org>;\r
  18         Sat, 11 Jan 2014 13:50:00 -0800 (PST)\r
  19 Received: from mail-wg0-f41.google.com (mail-wg0-f41.google.com\r
  20  [74.125.82.41])        (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  D6A49431FC3    for <notmuch@notmuchmail.org>; Sat, 11 Jan 2014 13:49:59 -0800\r
  23  (PST)\r
  24 Received: by mail-wg0-f41.google.com with SMTP id n12so1574647wgh.2\r
  25         for <notmuch@notmuchmail.org>; Sat, 11 Jan 2014 13:49:58 -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         bh=yJLceqTnkLriCky8jgkCvgC010TmwuEQ5Vpy4mbYVBw=;\r
  29         b=h8QfxcNMTM+6xMYIV/GSOUtS6R+Z2dJbfhhwP6V6zXj7X4sAGa3ou9AReyvlyxiWpp\r
  30         8EYFVAFCIvSCTMcbqmYxkiZSJDvvjLX+KQj/io2Jy8zQw+RpdqQJhlyGZx9q0dlAM4a2\r
  31         p8DVkXeyZKma6O9tHrZI2jcC69RWw5VtlYiAoxNYC8gvCNngzqH/y+fCQ4ncojlEF0nx\r
  32         sJJiQmH9sCe5LNUJAmHxQVFjZ22I0UtCt9U2DFCcEoBe9UBgeQiDD0NRRopbf0sRO9Gh\r
  33         FbhIlT73waMi5VegBkvRPWB1Nh3QynT1Bvb5Mhj8/i4FHXcqXy4oPpEFVFmSgCZYxL2K\r
  34         fqag==\r
  35 X-Received: by 10.194.219.1 with SMTP id pk1mr14912062wjc.36.1389476998637;\r
  36         Sat, 11 Jan 2014 13:49:58 -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 ESMTPSA id x4sm9562587wif.0.2014.01.11.13.49.57\r
  39         for <multiple recipients>\r
  40         (version=TLSv1.2 cipher=RC4-SHA bits=128/128);\r
  41         Sat, 11 Jan 2014 13:49:58 -0800 (PST)\r
  42 From: Mark Walters <markwalters1009@gmail.com>\r
  43 To: notmuch@notmuchmail.org\r
  44 Subject: [PATCH 2/2] emacs: tree: use tag-format-tags\r
  45 Date: Sat, 11 Jan 2014 21:49:52 +0000\r
  46 Message-Id: <1389476992-24122-1-git-send-email-markwalters1009@gmail.com>\r
  47 X-Mailer: git-send-email 1.7.9.1\r
  48 In-Reply-To: <1389476503-23682-2-git-send-email-markwalters1009@gmail.com>\r
  49 References: <1389476503-23682-2-git-send-email-markwalters1009@gmail.com>\r
  50 X-BeenThere: notmuch@notmuchmail.org\r
  51 X-Mailman-Version: 2.1.13\r
  52 Precedence: list\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, 11 Jan 2014 21:50:08 -0000\r
  63 \r
  64 Previously tree did not use tag-format-tags: since tree wants to\r
  65 distinguish matching messages from non-matching messages it is not a\r
  66 perfect fit.\r
  67 \r
  68 However, in preparation for allowing tag-changes to be shown (i.e.,\r
  69 added or deleted tags to be indicated) it is convenient to make all\r
  70 places displaying tags call the same routines.\r
  71 \r
  72 We modify notmuch-tag-format-tags slightly so that it can take and\r
  73 argument for the default characteristics of the face before the\r
  74 special tag features are applied.\r
  75 \r
  76 This also means that things like the star symbol for flagged messages\r
  77 all work in tree.\r
  78 \r
  79 ---\r
  80 \r
  81 (Sorry if this arrives multiple times: I am having problems sending mail)\r
  82 \r
  83  emacs/notmuch-tag.el  |   17 +++++++++--------\r
  84  emacs/notmuch-tree.el |    5 +----\r
  85  2 files changed, 10 insertions(+), 12 deletions(-)\r
  86 \r
  87 diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el\r
  88 index b60f46c..908e7ad 100644\r
  89 --- a/emacs/notmuch-tag.el\r
  90 +++ b/emacs/notmuch-tag.el\r
  91 @@ -148,15 +148,16 @@ This can be used with `notmuch-tag-format-image-data'."\r
  92         (dolist (format (cdr formats) tag)\r
  93           (setq tag (eval format))))))))\r
  94  \r
  95 -(defun notmuch-tag-format-tags (tags)\r
  96 +(defun notmuch-tag-format-tags (tags &optional face)\r
  97    "Return a string representing formatted TAGS."\r
  98 -  (notmuch-combine-face-text-property-string\r
  99 -   (mapconcat #'identity\r
 100 -             ;; nil indicated that the tag was deliberately hidden\r
 101 -             (delq nil (mapcar #'notmuch-tag-format-tag tags))\r
 102 -             " ")\r
 103 -   'notmuch-tag-face\r
 104 -   t))\r
 105 +  (let ((face (or face 'notmuch-tag-face)))\r
 106 +    (notmuch-combine-face-text-property-string\r
 107 +     (mapconcat #'identity\r
 108 +               ;; nil indicated that the tag was deliberately hidden\r
 109 +               (delq nil (mapcar #'notmuch-tag-format-tag tags))\r
 110 +               " ")\r
 111 +     face\r
 112 +     t)))\r
 113  \r
 114  (defcustom notmuch-before-tag-hook nil\r
 115    "Hooks that are run before tags of a message are modified.\r
 116 diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el\r
 117 index 16f2862..4f2ac02 100644\r
 118 --- a/emacs/notmuch-tree.el\r
 119 +++ b/emacs/notmuch-tree.el\r
 120 @@ -704,10 +704,7 @@ unchanged ADDRESS if parsing fails."\r
 121             (face (if match\r
 122                       'notmuch-tree-match-tag-face\r
 123                     'notmuch-tree-no-match-tag-face)))\r
 124 -       (propertize (format format-string\r
 125 -                           (mapconcat #'identity tags " "))\r
 126 -                   'face face))))))\r
 127 -\r
 128 +       (format format-string (notmuch-tag-format-tags tags face)))))))\r
 129  \r
 130  (defun notmuch-tree-format-field-list (field-list msg)\r
 131    "Format fields of MSG according to FIELD-LIST and return string"\r
 132 -- \r
 133 1.7.9.1\r
 134 \r