From: ueno <ueno>
Date: Mon, 25 Aug 2003 09:34:42 +0000 (+0000)
Subject: * riece-identity.el (riece-format-identity): Add 'riece-identity
X-Git-Tag: riece-0_1_1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=46b845892bc6c6f68b00f660937ec3c8ab155325;p=elisp%2Friece.git

* riece-identity.el (riece-format-identity): Add 'riece-identity
property to the resulting string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef4f67b..cbac16e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-08-25  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-identity.el (riece-format-identity): Add 'riece-identity
+	property to the resulting string.
+
 	* riece-misc.el (riece-concat-channel-topic): Don't append ":" if
 	topic is "".
 
diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el
index 6b6eedf..0f12d54 100644
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -128,8 +128,9 @@ RFC2812, 2.2 \"Character codes\" says:
 	   (concat (riece-identity-prefix identity) " "
 		   (riece-identity-server identity)))))
     (if riece-abbrev-identity-string-function
-	(funcall riece-abbrev-identity-string-function string)
-      string)))
+	(setq string (funcall riece-abbrev-identity-string-function string)))
+    (put-text-property 0 (length string) 'riece-identity identity string)
+    string))
 
 (defun riece-parse-identity (string)
   (if riece-expand-identity-string-function