X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-localnews.el;h=e66714e121fe74b67e1312cae8b7bd22ed44dbbf;hb=ba73c38820510691bbd7e51526d9c8dc30263545;hp=70317ed4557c24361aa01baab995b292acc3a65d;hpb=5d1f7b4172605f36599ce089f8c03209e9b9cfda;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
index 70317ed..e66714e 100644
--- a/elmo/elmo-localnews.el
+++ b/elmo/elmo-localnews.el
@@ -31,7 +31,17 @@
 ;;; Code:
 ;; 
 (require 'elmo-localdir)
-(luna-define-class elmo-localnews-folder (elmo-localdir-folder) ())
+
+(eval-and-compile
+  (luna-define-class elmo-localnews-folder (elmo-localdir-folder) (group))
+  (luna-define-internal-accessors 'elmo-localnews-folder))
+
+(luna-define-method elmo-folder-initialize :before ((folder
+						     elmo-localnews-folder)
+						    name)
+  (elmo-localnews-folder-set-group-internal folder
+					    (elmo-replace-in-string
+					     name "/" "\\.")))
 
 (luna-define-method elmo-localdir-folder-path ((folder elmo-localnews-folder))
   elmo-localnews-folder-path)
@@ -43,12 +53,14 @@
 (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)
-			   "/" "\\.")
+   (elmo-localnews-folder-group-internal folder)
    (expand-file-name
     (symbol-name (elmo-folder-type-internal folder))
     elmo-msgdb-dir)))
 
+(luna-define-method elmo-folder-newsgroups ((folder elmo-localnews-folder))
+  (list (elmo-localnews-folder-group-internal folder)))
+
 (require 'product)
 (product-provide (provide 'elmo-localnews) (require 'elmo-version))