From: yoichi <yoichi>
Date: Wed, 23 Jan 2002 15:09:57 +0000 (+0000)
Subject: * elmo-localnews.el (elmo-localnews-folder-path): Moved from elmo-vars.el.
X-Git-Tag: wl-2_9_7~47
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5af36decbb7ca1b08dcc49dfc8907b4c9d11c210;p=elisp%2Fwanderlust.git

* elmo-localnews.el (elmo-localnews-folder-path): Moved from elmo-vars.el.
* elmo-maildir.el (elmo-maildir-folder-path): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 7d9a854..c755402 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,13 @@
+2002-01-23  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-localnews.el (elmo-localnews-folder-path): Moved from
+	elmo-vars.el.
+	* elmo-maildir.el (elmo-maildir-folder-path): Ditto.
+
+	* elmo-vars.el (elmo-localnews-folder-path): Removed.
+	(elmo-maildir-folder-path): Ditto.
+	(elmo-maildir-list): Ditto (abolished).
+
 2002-01-23  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-version.el (elmo-version): Up to 2.9.6.
diff --git a/elmo/elmo-localnews.el b/elmo/elmo-localnews.el
index 6908d81..8d533e3 100644
--- a/elmo/elmo-localnews.el
+++ b/elmo/elmo-localnews.el
@@ -32,6 +32,11 @@
 ;;
 (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))
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 0a91115..8ff700d 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -35,6 +35,11 @@
 (require 'elmo)
 (require 'elmo-map)
 
+(defcustom elmo-maildir-folder-path "~/Maildir"
+  "*Maildir folder path."
+  :type 'directory
+  :group 'elmo)
+
 ;;; ELMO Maildir folder
 (eval-and-compile
   (luna-define-class elmo-maildir-folder
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index b9550a8..2a6e0ae 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -47,18 +47,7 @@
   :prefix "elmo-"
   :group 'elmo)
 
-;; Local
-(defcustom elmo-localnews-folder-path "~/News"
-  "*Local news folder path."
-  :type 'directory
-  :group 'elmo)
-(defcustom elmo-maildir-folder-path "~/Maildir"
-  "*Maildir folder path."
-  :type 'directory
-  :group 'elmo)
-(defvar elmo-maildir-list '("\\+~/Maildir")
-  "*All Folders that match this list will be treated as Maildir.
-Each elements are regexp of folder name (This is obsolete).")
+;; Message Database
 
 (defvar elmo-msgdb-file-header-chop-length 2048
   "*Number of bytes to get header in one reading from file.")