Fixed.

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 577417b..d74f998 100644 (file)
--- 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 (file)
--- 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)))