From 09b8be25570e484da8a5dcbae697c643c193d772 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 12 Dec 2004 08:20:04 +0000
Subject: [PATCH] Fixed.

---
 lisp/COMPILE      |    2 +-
 lisp/riece-log.el |    3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 577417b..d74f998 100644
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -74,7 +74,7 @@
 		riece-yank
 		riece-toolbar))))
 
-(defun riece-icons
+(defvar riece-icons
   '(riece-command-previous-channel
     riece-command-next-channel))
 
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 8c37673..d57a9dc 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -223,7 +223,8 @@ If LINES is t, insert today's logs entirely."
 	(put-text-property (1+ (match-beginning 1)) (1- (match-end 1))
 			   'riece-identity
 			   (riece-make-identity
-			    (riece-match-string-no-properties 1)
+			    (buffer-substring (1+ (match-beginning 1))
+					      (1- (match-end 1)))
 			    (riece-identity-server identity))))
       (run-hook-with-args 'riece-after-insert-functions
 			  point (goto-char (point-max)))
-- 
1.7.10.4