X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=elmo%2Felmo-localnews.el;h=8d533e3ee7f24e1279d8b51ea25de2c8c8dce6a1;hb=fb40159a1fc3d4fb1400f8fe3befb1056bc75b8c;hp=01936647fd042e0f666c9c090b0b66a9e6518619;hpb=8b003dd16e3d4a1f0d29b5fcd0f57a2ee294f967;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
index 0193664..8d533e3 100644
--- a/elmo/elmo-localnews.el
+++ b/elmo/elmo-localnews.el
@@ -1,4 +1,4 @@
-;;; elmo-localnews.el -- Local News Spool Interface for ELMO.
+;;; elmo-localnews.el --- Local News Spool Interface for ELMO.
 
 ;; Copyright (C) 1998,1999,2000 OKUNISHI Fujikazu <fuji0924@mbox.kyoto-inet.or.jp>
 ;; Copyright (C) 1998,1999,2000 Yuuichi Teranishi <teranisi@gohome.org>
@@ -26,12 +26,27 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 (require 'elmo-localdir)
-(luna-define-class elmo-localnews-folder (elmo-localdir-folder) ())
+
+(defcustom elmo-localnews-folder-path "~/News"
+  "*Local news folder path."
+  :type 'directory
+  :group 'elmo)
+
+(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)
@@ -40,6 +55,17 @@
 					       name)
   (elmo-replace-in-string name "\\." "/"))
 
+(luna-define-method elmo-folder-expand-msgdb-path ((folder
+						    elmo-localnews-folder))
+  (expand-file-name
+   (elmo-localnews-folder-group-internal folder)
+   (expand-file-name
+    (symbol-name (elmo-folder-type-internal folder))
+    elmo-msgdb-directory)))
+
+(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))