-;;; 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>
;;
;;; Commentary:
-;;
+;;
;;; 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)
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-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))