* riece-mini.el (riece-mini-display-message-function): Remove

properties and "\n" of the end.
(riece-mini-show-backlog): Follow the change above.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5d95a1b..7932abc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,15 @@
+2004-09-11  OHASHI Akira  <bg66@koka-in.org>
+
+       * riece-mini.el (riece-mini-display-message-function): Remove
+       properties and "\n" of the end.
+       (riece-mini-show-backlog): Follow the change above.
+
 2004-09-10  OHASHI Akira  <bg66@koka-in.org>
 
-       * riece-mini.el (riece-mini-display-message-function): Don't use cl
-       macro.
+       * riece-mini.el (riece-mini-display-message-function): Don't use
+       cl macro.
        (riece-mini-show-backlog): Follow the change above.
-       
+
        * riece-mini.el (riece-mini): New group.
        (riece-mini-backlog-size): New user option.
        (riece-mini-backlog-history): New internal variable.

diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el
index fb676a9..a96c7ae 100644 (file)
--- a/lisp/riece-mini.el
+++ b/lisp/riece-mini.el
@@ -80,9 +80,11 @@
       (setq riece-mini-last-channel (riece-message-target message)))
     (let ((string (concat (format-time-string "%H:%M") " "
                          (riece-format-message message t))))
+      (when (string-match "\\(.*\\)$" string)
+       (setq string (riece-match-string-no-properties 1 string)))
       (riece-mini-message-no-log "%s" string)
       (while (>= (length riece-mini-backlog-history)
-               riece-mini-backlog-size)
+                riece-mini-backlog-size)
        (setq riece-mini-backlog-history
              (cdr riece-mini-backlog-history)))
       (setq riece-mini-backlog-history
@@ -120,7 +122,7 @@ If twice (C-u C-u), then ask the channel."
     (when riece-mini-backlog-history
       (setq riece-mini-backlog-shown t)
       (riece-mini-message-no-log
-       (mapconcat 'identity riece-mini-backlog-history "")))))
+       (mapconcat 'identity riece-mini-backlog-history "\n")))))
 
 (defun riece-mini-pre-command ()
   (when riece-mini-backlog-shown