[PATCH] emacs: distinguish tag `flagged' on terminal

diff --git a/55/08d69b9ee607cce4520e06532aca26683b0ea7 b/55/08d69b9ee607cce4520e06532aca26683b0ea7
new file mode 100644 (file)
index 0000000..fc2e782
--- /dev/null
+++ b/55/08d69b9ee607cce4520e06532aca26683b0ea7
@@ -0,0 +1,88 @@
+Return-Path: <error4me@gmx.de>\r
+X-Original-To: notmuch@notmuchmail.org\r
+Delivered-To: notmuch@notmuchmail.org\r
+Received: from localhost (localhost [127.0.0.1])\r
+       by olra.theworths.org (Postfix) with ESMTP id E0235429E45\r
+       for <notmuch@notmuchmail.org>; Wed,  4 Sep 2013 10:07:29 -0700 (PDT)\r
+X-Virus-Scanned: Debian amavisd-new at olra.theworths.org\r
+X-Spam-Flag: NO\r
+X-Spam-Score: 0.001\r
+X-Spam-Level: \r
+X-Spam-Status: No, score=0.001 tagged_above=-999 required=5\r
+       tests=[FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001]\r
+       autolearn=disabled\r
+Received: from olra.theworths.org ([127.0.0.1])\r
+       by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)\r
+       with ESMTP id hf1PNPU+cDYU for <notmuch@notmuchmail.org>;\r
+       Wed,  4 Sep 2013 10:07:24 -0700 (PDT)\r
+Received: from mout.gmx.net (mout.gmx.net [212.227.15.18])\r
+       (using TLSv1 with cipher DHE-RSA-AES128-SHA (128/128 bits))\r
+       (No client certificate requested)\r
+       by olra.theworths.org (Postfix) with ESMTPS id 3906E429E44\r
+       for <notmuch@notmuchmail.org>; Wed,  4 Sep 2013 10:07:24 -0700 (PDT)\r
+Received: from boo.workgroup ([87.187.157.41]) by mail.gmx.com (mrgmx002)\r
+       with ESMTPSA (Nemesis) id 0LvENG-1VykUu2lHO-010K6m for\r
+       <notmuch@notmuchmail.org>; Wed, 04 Sep 2013 19:07:18 +0200\r
+Received: from grfz by boo.workgroup with local (Exim 4.80)\r
+       (envelope-from <error4me@gmx.de>)\r
+       id 1VHGXq-0006CN-3V; Wed, 04 Sep 2013 19:07:06 +0200\r
+Date: Wed, 4 Sep 2013 19:06:55 +0200\r
+From: Gregor Zattler <telegraph@gmx.net>\r
+To: notmuch@notmuchmail.org\r
+Subject: [PATCH] emacs: distinguish tag `flagged' on terminal\r
+Message-ID: <20130904170655.GA13154@boo.workgroup>\r
+Mail-Followup-To: notmuch@notmuchmail.org\r
+MIME-Version: 1.0\r
+Content-Type: text/plain; charset=us-ascii\r
+Content-Disposition: inline\r
+User-Agent: Mutt/1.5.21 (2010-09-15)\r
+Sender: error4me@gmx.de\r
+X-Provags-ID: V03:K0:rwGdMZ2sLl35hUqOr4yi57wkMXsHtinwmmWo76239MYdkIJz3MR\r
+       sTi0n7Nb74Jd0THVvn2xkThG5T5Q3BSU2rMRqY80E1gh7aiueQ9GxpQX0Cv/feaTZV2wJ0a\r
+       CAxojO9zm4/pTWlAUZ1dIDleFYodNTtLjJC//hhbQmcWN03eAkZtTgYX3CDZEVGJuCBYm62\r
+       DBBtaX2lw0hXgvqVXHGeQ==\r
+X-BeenThere: notmuch@notmuchmail.org\r
+X-Mailman-Version: 2.1.13\r
+Precedence: list\r
+List-Id: "Use and development of the notmuch mail system."\r
+       <notmuch.notmuchmail.org>\r
+List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>\r
+List-Archive: <http://notmuchmail.org/pipermail/notmuch>\r
+List-Post: <mailto:notmuch@notmuchmail.org>\r
+List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>\r
+List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,\r
+       <mailto:notmuch-request@notmuchmail.org?subject=subscribe>\r
+X-List-Received-Date: Wed, 04 Sep 2013 17:07:30 -0000\r
+\r
+Change foreground color to `blue' like lines representing threads\r
+with flagged messages in notmuch-search.  Before tag `flagged' was\r
+shown in notmuch-show buffers as image star on graphical frames while\r
+there was no visible distinction to other flags on terminal frames.\r
+---\r
+With this patch applied tag `unread' is now shown with foreground\r
+`red' while tag `flagged' is shown in `blue'.  IMHO this should be\r
+the other way around as flagged messages should be flagged more\r
+prominently than mere unread ones.  \r
+\r
+Sorry, did not find git-send-mail on my debian jessie box!?\r
+\r
+ emacs/notmuch-tag.el | 3 ++-\r
+ 1 file changed, 2 insertions(+), 1 deletion(-)\r
+\r
+diff --git a/emacs/notmuch-tag.el b/emacs/notmuch-tag.el\r
+index 064cfa8..5c50ade 100644\r
+--- a/emacs/notmuch-tag.el\r
++++ b/emacs/notmuch-tag.el\r
+@@ -30,7 +30,8 @@\r
+ \r
+ (defcustom notmuch-tag-formats\r
+   '(("unread" (propertize tag 'face '(:foreground "red")))\r
+-    ("flagged" (notmuch-tag-format-image-data tag (notmuch-tag-star-icon))))\r
++    ("flagged" (propertize tag 'face '(:foreground "blue"))\r
++     (notmuch-tag-format-image-data tag (notmuch-tag-star-icon))))\r
+   "Custom formats for individual tags.\r
+ \r
+ This gives a list that maps from tag names to lists of formatting\r
+-- \r
+1.8.4.rc3\r