Fixed.

[riece] / lisp / riece-ruby.el

diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el
index fc11dce..c7c5d82 100644 (file)
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -322,12 +322,13 @@ Use `riece-ruby-set-property' to set this variable.")
 
 (defun riece-ruby-exit-handler (name)
   (riece-ruby-inspect name)
-  (let ((data (copy-sequence riece-ruby-data))
-       (length (length data))
-       (index 0))
+  (let* ((data (copy-sequence riece-ruby-data))
+        (length (length data))
+        (index 0))
     (while (< index length)
       (if (eq (aref data index) ?\n)
-         (aset data index " ")))
+         (aset data index " "))
+      (setq index (1+ index)))
     (riece-send-string
      (format "NOTICE %s :%s\r\n"
             (riece-identity-prefix