From 46b845892bc6c6f68b00f660937ec3c8ab155325 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 25 Aug 2003 09:34:42 +0000 Subject: [PATCH] * riece-identity.el (riece-format-identity): Add 'riece-identity property to the resulting string. --- lisp/ChangeLog | 3 +++ lisp/riece-identity.el | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + * 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 -- 1.7.10.4