* riece-server.el: Move autoload setting for 'riece-exit before

[elisp/riece.git] / lisp / riece-identity.el

diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index e254dc3..fea3ef4 100644 (file)
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -139,6 +139,10 @@ will be added."
     (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)
+    (if prefix-only
+       (put-text-property 0 (length string)
+                          'riece-format-identity-prefix-only t
+                          string))
     string))
 
 (defun riece-parse-identity (string)