Undo the last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f766099..79a6b03 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,5 @@
 2003-08-26  Daiki Ueno  <ueno@unixuser.org>
 
-       * riece-display.el (riece-update-channel-list-buffer): Don't add
-       'riece-identity property.
-
        * riece-options.el (riece-addons): Enable riece-unread by default.
 
        * riece-highlight.el (riece-channel-list-current-face): New variable.

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 752494b..2f22561 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -78,12 +78,14 @@
        (if (car channels)
            (let ((point (point)))
              (insert (format "%2d:%c%s\n" index
-                               (if (riece-identity-equal
-                                    (car channels)
-                                    riece-current-channel)
-                                   ?*
-                                 ?\ )
-                               (riece-format-identity (car channels))))))
+                             (if (riece-identity-equal
+                                  (car channels)
+                                  riece-current-channel)
+                                 ?*
+                               ?\ )
+                             (riece-format-identity (car channels))))
+             (put-text-property point (point) 'riece-identity
+                                (car channels))))
        (setq index (1+ index)
              channels (cdr channels))))))