From 2adbe52002aaf3d66be9c9da6be7cd9d14e0afd1 Mon Sep 17 00:00:00 2001 From: bg66 Date: Thu, 13 May 2004 02:01:26 +0000 Subject: [PATCH] * riece-log.el (riece-log-get-directory): Follow the name change of riece-channel-regexp. --- lisp/ChangeLog | 5 +++++ lisp/riece-log.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * riece-log.el (riece-log-get-directory): Follow the name change + of riece-channel-regexp. + 2004-05-12 Daiki Ueno * 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) -- 1.7.10.4