From 93d36d14915e0b8c678e0ab7f4708851a38bd304 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 17 Dec 2003 02:05:08 +0000
Subject: [PATCH] * riece-log.el (riece-log-flashback): Use
 riece-match-string-no-properties instead of
 match-string-no-properties. * riece-xemacs.el
 (riece-match-string-no-properties): New function. *
 riece-emacs.el (riece-match-string-no-properties): New
 alias.

---
 lisp/ChangeLog       |    5 +++++
 lisp/riece-emacs.el  |    2 ++
 lisp/riece-log.el    |    2 +-
 lisp/riece-xemacs.el |    3 +++
 4 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 64bd3e8..7405df1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2003-12-17  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-log.el (riece-log-flashback): Use
+	riece-match-string-no-properties instead of match-string-no-properties.
+	* riece-xemacs.el (riece-match-string-no-properties): New function.
+	* riece-emacs.el (riece-match-string-no-properties): New alias.
+
 	* riece-identity.el: Don't require 'riece-compat.
 	(riece-identity-prefix-case-table): Abolish.
 	(riece-identity-prefix-case-pair-alist): New constant.
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el
index 825ee57..0e49815 100644
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -89,6 +89,8 @@
 (defalias 'riece-run-with-idle-timer 'run-with-idle-timer)
 (defalias 'riece-cancel-timer 'cancel-timer)
 
+(defalias 'riece-match-string-no-properties 'match-string-no-properties)
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index bba2e17..4398f8b 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -120,7 +120,7 @@ If integer, flash back only this line numbers. t means all lines."
 	      (put-text-property (match-beginning 1) (match-end 1)
 				 'riece-identity
 				 (riece-make-identity
-				  (match-string-no-properties 1)
+				  (riece-match-string-no-properties 1)
 				  (riece-identity-server identity))))
 	    (if (memq 'riece-button riece-addons)
 		(riece-button-update-buffer))
diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 1bab726..b1d7349 100644
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -114,6 +114,9 @@
 
 (defalias 'riece-cancel-timer 'delete-itimer)
 
+(defun riece-match-string-no-properties (number &optional string)
+  (format "%s" (match-string number string)))
+
 (provide 'riece-xemacs)
 
 ;;; riece-xemacs.el ends here
-- 
1.7.10.4