DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma;
	h=from:to:cc:subject:date:message-id:x-mailer;
	b=i2TB5cDfWNPKw9/8HvjbAWy5d4dYDdSfQFVycOCUFinEw1tH0/94b5bMK8/DtV69B2
	IT6pIjoirLVMU2duhQ2KJurmOdq/IVtlKkwP4a8il/5THYJojsxTcAnDrWjnX7NF7DQ7
	uYdUuOxFLQ7lDMIcz9OIPsglBtywUgbAkpNfU=
From: Alexander Botero-Lowry <alex.boterolowry@gmail.com>
To: notmuch@notmuchmail.org
Date: Thu, 19 Nov 2009 14:20:56 -0800
Message-Id: <1258669256-13807-1-git-send-email-alex.boterolowry@gmail.com>
Subject: [notmuch] [PATCH] Buttonize citation expander.
Precedence: list

Currently the button has no action or special handling at all.
---
 notmuch.el |   15 +++++++++++----
 1 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 1fc54c3..6a34282 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -453,10 +453,17 @@ which this thread was originally shown."
 	      (forward-line))
 	    (let ((overlay (make-overlay beg-sub (point))))
 	      (overlay-put overlay 'invisible 'notmuch-show-citation)
-	      (overlay-put overlay 'before-string
-			   (concat indent
-				   "[" (number-to-string (count-lines beg-sub (point)))
-				   "-line citation. Press 'c' to show.]\n")))))
+              (let (
+                    (p (point))
+                    (cite-button-text (concat "[" (number-to-string (count-lines beg-sub (point)))
+                                              "-line citation. Press 'c' to show.]"))
+                    )
+                (goto-char (- beg-sub 1))
+                (insert (concat "\n" indent))
+                (insert-button cite-button-text)
+                (insert "\n")
+                (goto-char (+ (length cite-button-text) p))
+              ))))
       (move-to-column depth)
       (if (looking-at notmuch-show-signature-regexp)
 	  (let ((sig-lines (- (count-lines beg-sub end) 1)))
-- 
1.6.5.2