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 CD3C8431FBD for ; Tue, 1 Dec 2009 08:16:00 -0800 (PST) X-Virus-Scanned: Debian amavisd-new at olra.theworths.org 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 4hHYmE9jZs4a for ; Tue, 1 Dec 2009 08:15:59 -0800 (PST) Received: from e23smtp02.au.ibm.com (e23smtp02.au.ibm.com [202.81.31.144]) by olra.theworths.org (Postfix) with ESMTP id 49E95431FBC for ; Tue, 1 Dec 2009 08:15:59 -0800 (PST) Received: from d23relay04.au.ibm.com (d23relay04.au.ibm.com [202.81.31.246]) by e23smtp02.au.ibm.com (8.14.3/8.13.1) with ESMTP id nB1GDHfR009947 for ; Wed, 2 Dec 2009 03:13:17 +1100 Received: from d23av04.au.ibm.com (d23av04.au.ibm.com [9.190.235.139]) by d23relay04.au.ibm.com (8.13.8/8.13.8/NCO v10.0) with ESMTP id nB1GCMOp1450122 for ; Wed, 2 Dec 2009 03:12:22 +1100 Received: from d23av04.au.ibm.com (loopback [127.0.0.1]) by d23av04.au.ibm.com (8.14.3/8.13.1/NCO v10.0 AVout) with ESMTP id nB1GFu5f008651 for ; Wed, 2 Dec 2009 03:15:57 +1100 Received: from localhost.localdomain ([9.124.215.21]) by d23av04.au.ibm.com (8.14.3/8.13.1/NCO v10.0 AVin) with ESMTP id nB1GFr3g008630; Wed, 2 Dec 2009 03:15:54 +1100 From: aneesh.kumar@gmail.com To: cworth@cworth.org, aneesh.kumar@linux.vnet.ibm.com Date: Tue, 1 Dec 2009 21:45:47 +0530 Message-Id: <1259684149-9574-1-git-send-email-aneesh.kumar@gmail.com> X-Mailer: git-send-email 1.6.5.2.74.g610f9 X-Mailman-Approved-At: Tue, 01 Dec 2009 08:25:29 -0800 Cc: notmuch@notmuchmail.org Subject: [notmuch] [PATCH 1/3] Use default face for the button types so that the underlines go away X-BeenThere: notmuch@notmuchmail.org X-Mailman-Version: 2.1.12 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: Tue, 01 Dec 2009 16:16:01 -0000 From: Alexander Botero-Lowry Since we know what these buttons do it seems like the underlines are unnecessary. This also backs out the attempt at fixing the button alignment on the message row, which is broken because of some interaction with indent-rigidly in some threads --- notmuch.el | 27 +++++++++++++++++++-------- 1 files changed, 19 insertions(+), 8 deletions(-) diff --git a/notmuch.el b/notmuch.el index 65473ba..c1e8257 100644 --- a/notmuch.el +++ b/notmuch.el @@ -560,15 +560,23 @@ which this thread was originally shown." (force-window-update) (redisplay t)) -(define-button-type 'notmuch-button-invisibility-toggle-type 'action 'notmuch-toggle-invisible-action 'follow-link t) -(define-button-type 'notmuch-button-citation-toggle-type 'help-echo "mouse-1, RET: Show citation" +(define-button-type 'notmuch-button-invisibility-toggle-type + 'action 'notmuch-toggle-invisible-action + 'follow-link t + 'face "default") +(define-button-type 'notmuch-button-citation-toggle-type + 'help-echo "mouse-1, RET: Show citation" :supertype 'notmuch-button-invisibility-toggle-type) -(define-button-type 'notmuch-button-signature-toggle-type 'help-echo "mouse-1, RET: Show signature" +(define-button-type 'notmuch-button-signature-toggle-type + 'help-echo "mouse-1, RET: Show signature" :supertype 'notmuch-button-invisibility-toggle-type) -(define-button-type 'notmuch-button-headers-toggle-type 'help-echo "mouse-1, RET: Show headers" - :supertype 'notmuch-button-invisibility-toggle-type) -(define-button-type 'notmuch-button-body-toggle-type 'help-echo "mouse-1, RET: Show message" +(define-button-type 'notmuch-button-headers-toggle-type + 'help-echo "mouse-1, RET: Show headers" :supertype 'notmuch-button-invisibility-toggle-type) +(define-button-type 'notmuch-button-body-toggle-type + 'help-echo "mouse-1, RET: Show message" + 'face '(:inverse-video . t) + :supertype 'notmuch-button-invisibility-toggle-type ) (defun notmuch-show-markup-citations-region (beg end depth) (goto-char beg) @@ -715,8 +723,11 @@ which this thread was originally shown." (btn nil)) (end-of-line) ; Inverse video for subject - (overlay-put (make-overlay beg (point)) 'face '(:inverse-video t)) - (setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type)) + (let ((message-overlay (make-overlay beg (point)))) + (overlay-put message-overlay 'face '(:inverse-video t)) + (setq btn (make-button (line-beginning-position) + (overlay-end message-overlay) + :type 'notmuch-button-body-toggle-type))) (forward-line 1) (end-of-line) (let ((beg-hidden (point-marker))) -- 1.6.5.2.74.g610f9