- (overlay-put (make-overlay beg-sub end)
- 'invisible 'notmuch-show-signature)
- (goto-char (- beg-sub 1))
- (insert (concat "\n" indent))
- (insert-button (concat "[" (number-to-string sig-lines)
- "-line signature. Press 's' to show.]"))
- (insert "\n")
- (goto-char end)))))
+ (let ((invis-spec (make-symbol "notmuch-signature-region")))
+ (add-to-invisibility-spec invis-spec)
+ (overlay-put (make-overlay beg-sub end)
+ 'invisible invis-spec)
+
+ (goto-char (- beg-sub 1))
+ (insert (concat "\n" indent))
+ (let ((sig-button (insert-button
+ (concat "[" (number-to-string sig-lines)
+ "-line signature.]"))))
+ (button-put sig-button 'invisibility-spec invis-spec)
+ (button-put sig-button 'action
+ 'notmuch-toggle-invisible-action)
+ (button-put sig-button 'help-echo
+ "mouse-2, RET: Show signature")
+ )
+ (insert "\n")
+ (goto-char end))))))