From: ueno <ueno>
Date: Sun, 12 Dec 2004 02:15:03 +0000 (+0000)
Subject: * riece-log.el (riece-log-flashback): Fixed regexp.
X-Git-Tag: riece-1_0_7~93
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ce0e94169085bbb6eb842bc0cd2a3d416b63791f;p=elisp%2Friece.git

* riece-log.el (riece-log-flashback): Fixed regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0f1618..40505a2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2004-12-12  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-log.el (riece-log-flashback): Fixed regexp.
+
 	* riece-menu.el (riece-menu-items): Add "Next Channel" and
 	"Previous Channel".
 
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 6d882fb..8c37673 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -217,8 +217,10 @@ If LINES is t, insert today's logs entirely."
 		(buffer-string)))
       (goto-char point)
       (while (re-search-forward
-	      "^[0-9][0-9]:[0-9][0-9] [<>]\\([^<>]+\\)[<>] " nil t)
-	(put-text-property (match-beginning 1) (match-end 1)
+	      (concat "^" riece-time-prefix-regexp
+		       "\\(<[^>]+>\\|>[^<]+<\\|([^)]+)\\|{[^}]+}\\|=[^=]+=\\)")
+	      nil t)
+	(put-text-property (1+ (match-beginning 1)) (1- (match-end 1))
 			   'riece-identity
 			   (riece-make-identity
 			    (riece-match-string-no-properties 1)