From: ueno <ueno>
Date: Wed, 8 Dec 2004 09:26:49 +0000 (+0000)
Subject: * riece-log.el (riece-log-get-directory): Fixed bug in
X-Git-Tag: riece-1_0_7~101
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=577f44fd46cf9a42d6a71acc0a7c2a064eab07ae;p=elisp%2Friece.git

* riece-log.el (riece-log-get-directory): Fixed bug in
riece-log-directory-map handling.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7aa055e..c46faae 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-12-08  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-log.el (riece-log-get-directory): Fixed bug in
+	riece-log-directory-map handling.
+
 	* test/test-riece-log.el
 	(test-riece-log-display-message-function): New test case.
 
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 3289a07..6d882fb 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -125,10 +125,9 @@ If integer, flash back only this line numbers. t means all lines."
   (let ((prefix (riece-identity-canonicalize-prefix
 		 (riece-identity-prefix identity)))
 	(server (riece-identity-server identity))
-	(map (assoc (riece-format-identity identity) riece-log-directory-map))
-	name)
+	(map (assoc (riece-format-identity identity) riece-log-directory-map)))
     (if map
-	(setq name (cdr map))
+	(expand-file-name (cdr map) riece-log-directory)
       (expand-file-name (riece-log-encode-file-name prefix)
 			(expand-file-name
 			 (concat "." (riece-log-encode-file-name server))