notmuch.el: Make hidden parts advertise how to unhide them.
authorCarl Worth <cworth@cworth.org>
Thu, 5 Nov 2009 19:25:02 +0000 (11:25 -0800)
committerCarl Worth <cworth@cworth.org>
Thu, 5 Nov 2009 19:25:02 +0000 (11:25 -0800)
This is in place now citations and signatures. We'll still need to
add something else for hidden messages (those that are already
read and hidden away).

notmuch.el

index 0eac1ccbed60efa586cdea6eafa223b2373127ac..de1eb9f1e1781ebc89694cdf50e3ddffeab28c3a 100644 (file)
@@ -408,7 +408,7 @@ which this thread was originally shown."
              (overlay-put overlay 'invisible 'notmuch-show-citation)
              (overlay-put overlay 'before-string
                           (concat "[" (number-to-string (count-lines beg-sub (point)))
              (overlay-put overlay 'invisible 'notmuch-show-citation)
              (overlay-put overlay 'before-string
                           (concat "[" (number-to-string (count-lines beg-sub (point)))
-                                  " quoted lines.]\n")))))
+                                  "-line citation. Press 'c' to show.]\n")))))
       (if (looking-at "--[ ]?$")
          (let ((sig-lines (count-lines beg-sub end)))
            (if (<= sig-lines notmuch-show-signature-lines-max)
       (if (looking-at "--[ ]?$")
          (let ((sig-lines (count-lines beg-sub end)))
            (if (<= sig-lines notmuch-show-signature-lines-max)
@@ -416,7 +416,7 @@ which this thread was originally shown."
                  (overlay-put (make-overlay beg-sub (+ beg-sub 1))
                               'before-string
                               (concat "[" (number-to-string sig-lines)
                  (overlay-put (make-overlay beg-sub (+ beg-sub 1))
                               'before-string
                               (concat "[" (number-to-string sig-lines)
-                                      "-line signature.]"))
+                                      "-line signature. Press 's' to show.]"))
                  (overlay-put (make-overlay (+ beg-sub 2) end)
                               'invisible 'notmuch-show-signature)
                  (goto-char end)))))
                  (overlay-put (make-overlay (+ beg-sub 2) end)
                               'invisible 'notmuch-show-signature)
                  (goto-char end)))))