X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-vars.el;h=39601f52a97ac46c4d373d44b7c708be127b3379;hb=fb40159a1fc3d4fb1400f8fe3befb1056bc75b8c;hp=7d6d0e733b12dcffcb9398620c79ca1b1440744b;hpb=92b962b1afabd56ec19b460907f966e922660a1d;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index 7d6d0e7..39601f5 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -35,6 +35,16 @@
   (defun-maybe dynamic-link (a))
   (defun-maybe dynamic-call (a b)))
 
+;; bind colon keywords for old Emacsen.
+(dont-compile
+  (condition-case nil
+      :symbol-for-testing-whether-colon-keyword-is-available-or-not
+    (void-variable
+     (let ((kwds '(:cc :date :extra :message-id :number :references :subject)))
+       (while kwds
+	 (set (car kwds) (car kwds))
+	 (setq kwds (cdr kwds)))))))
+
 (defgroup elmo nil
   "ELMO, Elisp Library for Message Orchestration."
   :tag "ELMO"
@@ -47,24 +57,24 @@
   :prefix "elmo-"
   :group 'elmo)
 
-;; Local
-(defvar elmo-localnews-folder-path "~/News"
-  "*Local news folder path.")
-(defvar elmo-maildir-folder-path "~/Maildir"
-  "*Maildir folder path.")
-(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.")
 
-(defvar elmo-msgdb-directory "~/.elmo"
-  "*ELMO Message Database path.")
+(defcustom elmo-msgdb-directory "~/.elmo"
+  "*ELMO Message Database path."
+  :type 'directory
+  :group 'elmo
+  :group 'elmo-setting)
 (defvar elmo-passwd-alist-file-name "passwd"
   "*ELMO Password filename.")
-(defvar elmo-passwd-life-time nil
-  "*Duration of ELMO Password in seconds.  nil means infinity.")
+(defcustom elmo-passwd-life-time nil
+  "*Duration of ELMO Password in seconds.  nil means infinity."
+  :type '(choice (const :tag "Infinity" nil)
+		 number)
+  :group 'elmo
+  :group 'elmo-setting)
 
 (defvar elmo-warning-threshold 30000
   "*Display warning when the bytes of message exceeds this value.")
@@ -78,12 +88,6 @@ Each elements are regexp of folder name (This is obsolete).")
 
 ;;; 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
@@ -92,7 +96,12 @@ Each elements are regexp of folder name (This is obsolete).")
 
 (defcustom elmo-imap4-default-authenticate-type 'login
   "*Default Authentication type for IMAP4."
-  :type 'symbol
+  :type '(radio (const :tag "encoded password transmission (login)" login)
+		(const :tag "CRAM-MD5 authentication (cram-md5)" cram-md5)
+		(const :tag "DIGEST-MD5 authentication (digest-md5)" digest-md5)
+		(const :tag "plain password transmission (clear)" clear)
+		(const :tag "NTLM authentication (ntlm)" ntlm)
+		(function :tag "Other"))
   :group 'elmo)
 
 (defcustom elmo-imap4-default-user (or (getenv "USER")
@@ -172,7 +181,12 @@ This is taken precedence over `elmo-network-stream-type-alist'.")
 
 (defcustom elmo-pop3-default-authenticate-type 'user
   "*Default Authentication type for POP3."
-  :type 'symbol
+  :type '(radio (const :tag "plain password transmission (user)" user)
+		(const :tag "APOP authentication (apop)" apop)
+		(const :tag "CRAM-MD5 authentication (cram-md5)" cram-md5)
+		(const :tag "DIGEST-MD5 authentication (digest-md5)" digest-md5)
+		(const :tag "NTLM authentication (ntlm)" ntlm)
+		(function :tag "Other"))
   :group 'elmo)
 
 (defcustom elmo-pop3-default-port 110
@@ -232,11 +246,17 @@ For disconnected operations.")
 (defvar elmo-strict-diff-folder-list nil
   "List of regexps of folder name which should be checked its diff strictly.")
 
-(defvar elmo-msgdb-extra-fields nil
-  "Extra fields for msgdb.")
+(defcustom elmo-msgdb-extra-fields nil
+  "Extra fields for msgdb."
+  :type '(repeat string)
+  :group 'elmo
+  :group 'elmo-setting)
 
-(defvar elmo-enable-disconnected-operation t
-  "*Enable disconnected operations.")
+(defcustom elmo-enable-disconnected-operation t
+  "*Non-nil enables disconnected operations."
+  :type 'boolean
+  :group 'elmo
+  :group 'elmo-setting)
 
 (defvar elmo-auto-change-plugged 600
   "*Time to expire change plugged state automatically, as the number of seconds.
@@ -361,9 +381,6 @@ Arguments for this function are NAME, BUFFER, HOST and SERVICE.")
 (defvar elmo-use-decoded-cache (featurep 'xemacs)
   "Use cache of decoded mime charset string.")
 
-(defvar elmo-use-overview-hashtb t
-  "Use hash table of overview.")
-
 (defvar elmo-display-progress-threshold 20
   "*Displaying progress gauge if number of messages are more than this value.")