From: ueno <ueno>
Date: Tue, 26 Aug 2003 05:23:25 +0000 (+0000)
Subject: Undo the last change.
X-Git-Tag: riece-0_1_1~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d36ec9e347d79fdcf33be7c2ff49ad92e120f87d;p=elisp%2Friece.git

Undo the last change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f766099..79a6b03 100644
--- 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
--- 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))))))