1 Return-Path: <alex.boterolowry@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 60A10431FBC
\r
6 for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 14:21:17 -0800 (PST)
\r
7 X-Virus-Scanned: Debian amavisd-new at olra.theworths.org
\r
8 Received: from olra.theworths.org ([127.0.0.1])
\r
9 by localhost (olra.theworths.org [127.0.0.1]) (amavisd-new, port 10024)
\r
10 with ESMTP id ZGm8NCtpcajm for <notmuch@notmuchmail.org>;
\r
11 Thu, 19 Nov 2009 14:21:17 -0800 (PST)
\r
12 Received: from mail-fx0-f169.google.com (mail-fx0-f169.google.com
\r
14 by olra.theworths.org (Postfix) with ESMTP id DA708431FAE
\r
15 for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 14:21:16 -0800 (PST)
\r
16 Received: by fxm9 with SMTP id 9so851759fxm.10
\r
17 for <notmuch@notmuchmail.org>; Thu, 19 Nov 2009 14:21:16 -0800 (PST)
\r
18 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;
\r
19 h=domainkey-signature:received:received:received:from:to:cc:subject
\r
20 :date:message-id:x-mailer;
\r
21 bh=0GXWWFjbqCA3I34YbAr3xJSMcZsKafDnRmZletBkGsE=;
\r
22 b=jc0Ar3oNUAvAIr62jtgQvHXzDh6XagVFJjlJL1pirNZsAiz+Pub41JpL7ld2bLSs9J
\r
23 v9yBKTXH1y+ddnfnweHLnlKexSYoMeuOHrqKc/ixGLKL0Pgm0u8fcV6LpHYN0CLD3hui
\r
24 lfg6si5qBBFfmMHHTgukxdceDeuV+MNOVUE7o=
\r
25 DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
\r
26 h=from:to:cc:subject:date:message-id:x-mailer;
\r
27 b=i2TB5cDfWNPKw9/8HvjbAWy5d4dYDdSfQFVycOCUFinEw1tH0/94b5bMK8/DtV69B2
\r
28 IT6pIjoirLVMU2duhQ2KJurmOdq/IVtlKkwP4a8il/5THYJojsxTcAnDrWjnX7NF7DQ7
\r
29 uYdUuOxFLQ7lDMIcz9OIPsglBtywUgbAkpNfU=
\r
30 Received: by 10.216.93.14 with SMTP id k14mr155546wef.152.1258669273138;
\r
31 Thu, 19 Nov 2009 14:21:13 -0800 (PST)
\r
32 Received: from fortitudo (nat08.metaweb.com [208.68.111.135])
\r
33 by mx.google.com with ESMTPS id t2sm1605867gve.9.2009.11.19.14.21.11
\r
34 (version=TLSv1/SSLv3 cipher=RC4-MD5);
\r
35 Thu, 19 Nov 2009 14:21:12 -0800 (PST)
\r
36 Received: from alexbl (uid 1001) (envelope-from alexbl@fortitudo) id 717e
\r
37 by fortitudo (DragonFly Mail Agent) Thu, 19 Nov 2009 14:21:10 -0800
\r
38 From: Alexander Botero-Lowry <alex.boterolowry@gmail.com>
\r
39 To: notmuch@notmuchmail.org
\r
40 Date: Thu, 19 Nov 2009 14:20:56 -0800
\r
41 Message-Id: <1258669256-13807-1-git-send-email-alex.boterolowry@gmail.com>
\r
42 X-Mailer: git-send-email 1.6.5.2
\r
43 Subject: [notmuch] [PATCH] Buttonize citation expander.
\r
44 X-BeenThere: notmuch@notmuchmail.org
\r
45 X-Mailman-Version: 2.1.12
\r
47 List-Id: "Use and development of the notmuch mail system."
\r
48 <notmuch.notmuchmail.org>
\r
49 List-Unsubscribe: <http://notmuchmail.org/mailman/options/notmuch>,
\r
50 <mailto:notmuch-request@notmuchmail.org?subject=unsubscribe>
\r
51 List-Archive: <http://notmuchmail.org/pipermail/notmuch>
\r
52 List-Post: <mailto:notmuch@notmuchmail.org>
\r
53 List-Help: <mailto:notmuch-request@notmuchmail.org?subject=help>
\r
54 List-Subscribe: <http://notmuchmail.org/mailman/listinfo/notmuch>,
\r
55 <mailto:notmuch-request@notmuchmail.org?subject=subscribe>
\r
56 X-List-Received-Date: Thu, 19 Nov 2009 22:21:17 -0000
\r
58 Currently the button has no action or special handling at all.
\r
60 notmuch.el | 15 +++++++++++----
\r
61 1 files changed, 11 insertions(+), 4 deletions(-)
\r
63 diff --git a/notmuch.el b/notmuch.el
\r
64 index 1fc54c3..6a34282 100644
\r
67 @@ -453,10 +453,17 @@ which this thread was originally shown."
\r
69 (let ((overlay (make-overlay beg-sub (point))))
\r
70 (overlay-put overlay 'invisible 'notmuch-show-citation)
\r
71 - (overlay-put overlay 'before-string
\r
73 - "[" (number-to-string (count-lines beg-sub (point)))
\r
74 - "-line citation. Press 'c' to show.]\n")))))
\r
77 + (cite-button-text (concat "[" (number-to-string (count-lines beg-sub (point)))
\r
78 + "-line citation. Press 'c' to show.]"))
\r
80 + (goto-char (- beg-sub 1))
\r
81 + (insert (concat "\n" indent))
\r
82 + (insert-button cite-button-text)
\r
84 + (goto-char (+ (length cite-button-text) p))
\r
86 (move-to-column depth)
\r
87 (if (looking-at notmuch-show-signature-regexp)
\r
88 (let ((sig-lines (- (count-lines beg-sub end) 1)))
\r