[notmuch] [PATCH 3/4] emacs: Some cleanup.

Kan-Ru Chen kanru at kanru.info
Sun Dec 13 21:41:34 PST 2009


Signed-off-by: Kan-Ru Chen <kanru at kanru.info>
---
 notmuch.el |    9 ++++-----
 1 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index 1722474..db8f899 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -611,11 +611,10 @@ which this thread was originally shown."
                   (invis-spec (make-symbol "notmuch-citation-region")))
               (add-to-invisibility-spec invis-spec)
 	      (overlay-put overlay 'invisible invis-spec)
-              (let ((p (point-marker))
-                    (cite-button-text
+              (let ((cite-button-text
                      (concat "["  (number-to-string (count-lines beg-sub (point)))
                              "-line citation. Click/Enter to show.]")))
-                (goto-char (- beg-sub 1))
+                (goto-char (1- beg-sub))
                 (insert (concat "\n" indent))
                 (insert-button cite-button-text
                                'invisibility-spec invis-spec
@@ -624,7 +623,7 @@ which this thread was originally shown."
               ))))
       (move-to-column depth)
       (if (looking-at notmuch-show-signature-regexp)
-	  (let ((sig-lines (- (count-lines beg-sub end) 1)))
+	  (let ((sig-lines (1- (count-lines beg-sub end))))
 	    (if (<= sig-lines notmuch-show-signature-lines-max)
 		(progn
                   (let ((invis-spec (make-symbol "notmuch-signature-region")))
@@ -632,7 +631,7 @@ which this thread was originally shown."
                     (overlay-put (make-overlay beg-sub end)
                                  'invisible invis-spec)
                   
-                    (goto-char (- beg-sub 1))
+                    (goto-char (1- beg-sub))
                     (insert (concat "\n" indent))
                     (let ((sig-button-text (concat "[" (number-to-string sig-lines)
                                                    "-line signature. Click/Enter to show.]")))
-- 
1.6.5.5



More information about the notmuch mailing list