From 32d1ce289e62df6f14f1bffba99cbb7a8e235edd Mon Sep 17 00:00:00 2001 From: OHASHI Akira Date: Thu, 23 Oct 2003 01:45:31 +0000 Subject: [PATCH] * riece-log.el (riece-log-get-directory): Follow the change of `riece-channel-regexp'. --- lisp/ChangeLog | 5 +++++ lisp/riece-log.el | 22 ++++++++++++---------- 2 files changed, 17 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce30160..b4e3438 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-23 OHASHI Akira + + * riece-log.el (riece-log-get-directory): Follow the change of + `riece-channel-regexp'. + 2003-10-22 Daiki Ueno * riece-identity.el (riece-format-identity): Return copied strings. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 8d98e66..b4c801c 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -82,16 +82,18 @@ If integer, flash back only this line numbers. t means all lines." (let ((map (assoc channel riece-log-directory-map))) (if map (expand-file-name (cdr map) riece-log-directory) - (if (string-match (concat riece-channel-regexp - "\\([^:]+\\)\\(:\\*\\.\\(.*\\)\\)?") channel) - (let ((name (match-string 1 channel)) - (suffix (match-string 3 channel))) - (let ((name (if suffix (concat name "-" suffix) name))) - (if server - (expand-file-name - name - (expand-file-name server riece-log-directory)) - (expand-file-name name riece-log-directory)))) + (if (string-match riece-channel-regexp channel) + (let ((name (substring channel + (match-end 1) (match-beginning 2))) + (suffix (match-string 2 channel))) + (when (and (stringp suffix) + (string-match "^:\\*\\.\\(.*\\)" suffix)) + (setq name (concat name "-" (match-string 1 suffix)))) + (if server + (expand-file-name + name + (expand-file-name server riece-log-directory)) + (expand-file-name name riece-log-directory))) riece-log-directory))))) (defun riece-log-flashback (identity) -- 2.25.1