X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-vars.el;h=e2de650f9b6e47d4767933e4fbf3bfe76a4da215;hb=c2738fdc4e616fb55973a7e285432f60af6c1c57;hp=36d70d14e74ed6d834c211b52da6f9561af7d68c;hpb=7f106dfbcd7e98afefaab9192dcab76021ee300b;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 36d70d1..e2de650 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -59,6 +59,13 @@
 
 ;; Message Database
 
+(defcustom elmo-msgdb-default-type 'legacy
+  "*Default type of Message Database for ELMO."
+  :type '(radio (const legacy)
+		(const :tag "No use" generic))
+  :group 'elmo
+  :group 'elmo-setting)
+
 (defvar elmo-msgdb-file-header-chop-length 2048
   "*Number of bytes to get header in one reading from file.")
 
@@ -88,12 +95,6 @@
 
 ;;; IMAP4
 
-(defcustom elmo-imap4-default-mailbox "inbox"
-  "*Default IMAP4 mailbox."
-  :type 'string
-  :group 'elmo
-  :group 'elmo-setting)
-
 (defcustom elmo-imap4-default-server "localhost"
   "*Default IMAP4 server."
   :type 'string
@@ -239,8 +240,6 @@ This is taken precedence over `elmo-network-stream-type-alist'.")
 (defvar elmo-msgdb-lock-list-filename "lock"
   "Locked messages...list of message-id.
 For disconnected operations.")
-(defvar elmo-msgdb-global-mark-filename "global-mark"
-  "Alist of global mark.")
 (defvar elmo-lost+found-folder "+lost+found"
   "Lost and found.")
 (defvar elmo-crosspost-alist-filename "crosspost-alist"