From: bg66 <bg66>
Date: Sat, 11 Sep 2004 06:04:40 +0000 (+0000)
Subject: * riece-mini.el (riece-mini-display-message-function): Remove
X-Git-Tag: riece-1_0_4~25
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64d69fb52d96f0a819505210f56025be36221cdb;p=elisp%2Friece.git

* 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
--- 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
--- 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