From: bg66 <bg66>
Date: Wed, 29 Oct 2003 02:59:46 +0000 (+0000)
Subject: * riece-log.el (riece-log-get-directory): Support riece-identity
X-Git-Tag: riece-0_1_6~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a33759a8f1fa591bd12ef72d97ebca643212dbf2;p=elisp%2Friece.git

* riece-log.el (riece-log-get-directory): Support riece-identity
for mapping.
---

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  <bg66@koka-in.org>
+
+	* riece-log.el (riece-log-get-directory): Support riece-identity
+        for mapping.
+
 2003-10-28  Daiki Ueno  <ueno@unixuser.org>
 
 	* 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)