From: teranisi <teranisi>
Date: Tue, 16 Oct 2001 04:28:00 +0000 (+0000)
Subject: * elmo-localnews.el (elmo-folder-expand-msgdb-path): Define.
X-Git-Tag: wl-2_7_6~22
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d2bd74f1ab362d78fa8e6c097e260a9993219f25;p=elisp%2Fwanderlust.git

* elmo-localnews.el (elmo-folder-expand-msgdb-path): Define.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8726ba9..00f1bca 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-16  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-localnews.el (elmo-folder-expand-msgdb-path): Define.
+
 2001-10-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-msgdb.el (elmo-msgdb-insert-file-header): Moved searching
diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
index 0193664..70317ed 100644
--- a/elmo/elmo-localnews.el
+++ b/elmo/elmo-localnews.el
@@ -40,6 +40,15 @@
 					       name)
   (elmo-replace-in-string name "\\." "/"))
 
+(luna-define-method elmo-folder-expand-msgdb-path ((folder
+						    elmo-localnews-folder))
+  (expand-file-name
+   (elmo-replace-in-string (elmo-localdir-folder-dir-name-internal folder)
+			   "/" "\\.")
+   (expand-file-name
+    (symbol-name (elmo-folder-type-internal folder))
+    elmo-msgdb-dir)))
+
 (require 'product)
 (product-provide (provide 'elmo-localnews) (require 'elmo-version))