Fixed.

diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 2997420..7477633 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -105,7 +105,7 @@
 
 (defun riece-normalize-modeline-string (string)
   (if (listp string)
 
 (defun riece-normalize-modeline-string (string)
   (if (listp string)

-      (riece-normalize-modeline-string-1 string)
+      (list (apply #'concat (riece-normalize-modeline-string-1 string)))

     string))
 
 (defun riece-put-text-property-nonsticky (start end prop value
     string))
 
 (defun riece-put-text-property-nonsticky (start end prop value