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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8726ba9..00f1bca 100644 (file)
--- 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 (file)
--- 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))