X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-identity.el;h=d86c09cff3373fd241292cc79bde43d6ae215853;hp=e025c608344ed38fdfc48d361f2aedbd6ddf064f;hb=beb805c4f0168412f470a7828f4cd437ffbde8e5;hpb=16c343cb259e053b92d36eaf0c5e873f653047e8

diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index e025c60..d86c09c 100644
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -138,11 +138,13 @@ will be added."
 		   (riece-identity-server identity)))))
     (if riece-abbrev-identity-string-function
 	(setq string (funcall riece-abbrev-identity-string-function string)))
-    (put-text-property 0 (length string) 'riece-identity identity string)
+    (riece-put-text-property-nonsticky 0 (length string)
+				       'riece-identity identity
+				       string)
     (if prefix-only
-	(put-text-property 0 (length string)
-			   'riece-format-identity-prefix-only t
-			   string))
+	(riece-put-text-property-nonsticky 0 (length string)
+					   'riece-format-identity-prefix-only t
+					   string))
     string))
 
 (defun riece-parse-identity (string)