+
+(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 "/" "\\.")))