From: yoichi <yoichi>
Date: Mon, 15 May 2006 13:51:36 +0000 (+0000)
Subject: * elmo-flag.el (elmo-folder-expand-msgdb-path): Translate path.
X-Git-Tag: wl-2_15_4~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1c196fe0586806e88c0619858785b98ee4e61ee3;p=elisp%2Fwanderlust.git

* elmo-flag.el (elmo-folder-expand-msgdb-path): Translate path.
(elmo-global-flags-initialize): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4a4f8ef..fa29191 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-15  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo-flag.el (elmo-folder-expand-msgdb-path): Translate path.
+	(elmo-global-flags-initialize): Ditto.
+
 2006-05-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo-archive.el (toplevel): Don't require emu, std11
diff --git a/elmo/elmo-flag.el b/elmo/elmo-flag.el
index 7a64396..0ee9397 100644
--- a/elmo/elmo-flag.el
+++ b/elmo/elmo-flag.el
@@ -116,8 +116,9 @@
 
 (luna-define-method elmo-folder-expand-msgdb-path ((folder elmo-flag-folder))
   (expand-file-name (concat "flag/"
-			    (symbol-name
-			     (elmo-flag-folder-flag-internal folder)))
+			    (elmo-replace-string-as-filename
+			     (symbol-name
+			      (elmo-flag-folder-flag-internal folder))))
 		    elmo-msgdb-directory))
 
 (luna-define-method elmo-folder-commit :after ((folder
@@ -451,7 +452,8 @@ If optional IGNORE-PRESERVED is non-nil, preserved flags
 	     elmo-global-flags
 	     additional-flags
 	     (and (file-directory-p dir)
-		  (mapcar 'intern
+		  (mapcar (lambda (x)
+			    (intern (elmo-recover-string-from-filename x)))
 			  (elmo-list-delete
 			   '(".." ".")
 			   (directory-files dir))))))