X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=a080134ff7e5dbea69528267c277dad6fef062fd;hb=6bbb91f8b64c20a491cc3501b625753f97e52882;hp=b0a8d8ab022a1c68c22e472b53fcbda30c062906;hpb=8a164516ee3a8ad000cf10cdcb4e84eb8bf7674d;p=notmuch

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index b0a8d8ab..a080134f 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -559,10 +559,12 @@ message at DEPTH in the current thread."
 	     (new-start (button-start button))
 	     (button-label (button-get button :base-label))
 	     (old-point (point))
+	     (properties (text-properties-at (point)))
 	     (inhibit-read-only t))
 	(overlay-put overlay 'invisible (not show))
 	(goto-char new-start)
 	(insert "[ " button-label (if show " ]" " (hidden) ]"))
+	(set-text-properties new-start (point) properties)
 	(let ((old-end (button-end button)))
 	  (move-overlay button new-start (point))
 	  (delete-region (point) old-end))