X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=blobdiff_plain;f=emacs%2Fnotmuch-wash.el;h=8fe91e1415944e3ec132dab441ff3641c0029fde;hp=8a68819cc9940be440871622cbfda237f6749962;hb=6bbb91f8b64c20a491cc3501b625753f97e52882;hpb=195aaa623261cc877889a27bc4804a37593656a6

diff --git a/emacs/notmuch-wash.el b/emacs/notmuch-wash.el
index 8a68819c..8fe91e14 100644
--- a/emacs/notmuch-wash.el
+++ b/emacs/notmuch-wash.el
@@ -104,9 +104,11 @@ lower).")
 	 (overlay (button-get cite-button 'overlay))
 	 (button-label (notmuch-wash-button-label overlay))
 	 (old-point (point))
+	 (properties (text-properties-at (point)))
 	 (inhibit-read-only t))
     (goto-char new-start)
     (insert button-label)
+    (set-text-properties new-start (point) properties)
     (let ((old-end (button-end cite-button)))
       (move-overlay cite-button new-start (point))
       (delete-region (point) old-end))