Replace deprecated time-stamp-hh:mm:ss by format-time-string

[elisp/wanderlust.git] / elmo / elmo-localnews.el

diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
index e66714e..8d533e3 100644 (file)
--- 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,17 @@
 ;;
 
 ;;; Commentary:
-;; 
+;;
 
 ;;; Code:
-;; 
+;;
 (require 'elmo-localdir)
 
+(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))
@@ -56,7 +61,7 @@
    (elmo-localnews-folder-group-internal folder)
    (expand-file-name
     (symbol-name (elmo-folder-type-internal folder))
-    elmo-msgdb-dir)))
+    elmo-msgdb-directory)))
 
 (luna-define-method elmo-folder-newsgroups ((folder elmo-localnews-folder))
   (list (elmo-localnews-folder-group-internal folder)))