Return-Path: X-Original-To: notmuch@notmuchmail.org Delivered-To: notmuch@notmuchmail.org Received: from localhost (localhost [127.0.0.1]) by olra.theworths.org (Postfix) with ESMTP id 3D242431FBC for ; Wed, 10 Feb 2010 03:39:44 -0800 (PST) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org X-Spam-Flag: NO X-Spam-Score: -1.236 X-Spam-Level: X-Spam-Status: No, score=-1.236 tagged_above=-999 required=5 tests=[AWL=-0.496, BAYES_20=-0.74] autolearn=ham Received: from olra.theworths.org ([127.0.0.1]) by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id qexqCLOR5vj5 for ; Wed, 10 Feb 2010 03:39:43 -0800 (PST) Received: from mail-ew0-f220.google.com (mail-ew0-f220.google.com [209.85.219.220]) by olra.theworths.org (Postfix) with ESMTP id 37C5E431FAE for ; Wed, 10 Feb 2010 03:39:43 -0800 (PST) Received: by ewy20 with SMTP id 20so6327634ewy.0 for ; Wed, 10 Feb 2010 03:39:42 -0800 (PST) Received: by 10.213.48.211 with SMTP id s19mr91381ebf.49.1265801982389; Wed, 10 Feb 2010 03:39:42 -0800 (PST) Received: from aw.hh.sledj.net (gmp-ea-fw-1.sun.com [192.18.1.36]) by mx.google.com with ESMTPS id 24sm2586251eyx.38.2010.02.10.03.39.41 (version=TLSv1/SSLv3 cipher=RC4-MD5); Wed, 10 Feb 2010 03:39:41 -0800 (PST) Received: by aw.hh.sledj.net (Postfix, from userid 1000) id 72FBB3A08A; Wed, 10 Feb 2010 11:39:22 +0000 (GMT) From: David Edmondson To: notmuch@notmuchmail.org Date: Wed, 10 Feb 2010 11:38:54 +0000 Message-Id: <1265801934-6603-1-git-send-email-dme@dme.org> X-Mailer: git-send-email 1.6.6.1 Subject: [notmuch] [PATCH] notmuch.el: Decorate 'Date:' headers with the message-header-other face when visible. X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.13 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 10 Feb 2010 11:39:44 -0000 --- notmuch.el | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/notmuch.el b/notmuch.el index c0bb552..bd721a0 100644 --- a/notmuch.el +++ b/notmuch.el @@ -816,7 +816,13 @@ before the delimiter marking the beginning of the body." (overlay-put (make-overlay (point) (re-search-forward ":")) 'face 'message-header-name) (overlay-put (make-overlay (point) (re-search-forward ".*$")) - 'face 'message-header-other))))))) + 'face 'message-header-other)) + (if (looking-at "[Dd]ate:") + (progn + (overlay-put (make-overlay (point) (re-search-forward ":")) + 'face 'message-header-name) + (overlay-put (make-overlay (point) (re-search-forward ".*$")) + 'face 'message-header-other)))))))) (defun notmuch-show-markup-header (message-begin depth) "Buttonize and decorate faces in a message header. -- 1.6.6.1