From a33759a8f1fa591bd12ef72d97ebca643212dbf2 Mon Sep 17 00:00:00 2001 From: bg66 Date: Wed, 29 Oct 2003 02:59:46 +0000 Subject: [PATCH] * riece-log.el (riece-log-get-directory): Support riece-identity for mapping. --- lisp/ChangeLog | 5 +++++ lisp/riece-log.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 148837e..ccaa278 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-10-29 OHASHI Akira + + * riece-log.el (riece-log-get-directory): Support riece-identity + for mapping. + 2003-10-28 Daiki Ueno * riece-layout.el (riece-set-window-points): Move point in diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 84ff244..8acc9da 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -77,9 +77,9 @@ If integer, flash back only this line numbers. t means all lines." (riece-log-get-directory identity))) (defun riece-log-get-directory (identity) - (let* ((channel (riece-identity-prefix identity)) - (server (riece-identity-server identity)) - (map (assoc channel riece-log-directory-map)) + (let ((channel (riece-identity-prefix identity)) + (server (riece-identity-server identity)) + (map (assoc (riece-format-identity identity) riece-log-directory-map)) name) (cond (map (setq name (cdr map))) ((string-match riece-channel-regexp channel) -- 1.7.10.4