From: bg66 <bg66>
Date: Thu, 13 May 2004 02:01:26 +0000 (+0000)
Subject: * riece-log.el (riece-log-get-directory): Follow the name change
X-Git-Tag: riece-1_0_0~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2adbe52002aaf3d66be9c9da6be7cd9d14e0afd1;p=elisp%2Friece.git

* riece-log.el (riece-log-get-directory): Follow the name change
of riece-channel-regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7b0cb0..6d66dc5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-13  OHASHI Akira  <bg66@koka-in.org>
+
+	* riece-log.el (riece-log-get-directory): Follow the name change
+	of riece-channel-regexp.
+
 2004-05-12  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-globals.el (riece-strict-channel-regexp): Renamed from
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 4ccbc71..dd997e6 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -94,7 +94,7 @@ If integer, flash back only this line numbers. t means all lines."
 	(map (assoc (riece-format-identity identity) riece-log-directory-map))
 	name)
     (cond (map (setq name (cdr map)))
-	  ((string-match riece-channel-regexp channel)
+	  ((string-match riece-strict-channel-regexp channel)
 	   (let ((suffix (match-string 2 channel)))
 	     (setq name (substring channel (match-end 1) (match-beginning 2)))
 	     (when (and (stringp suffix)