From: yoichi <yoichi>
Date: Tue, 22 Jan 2002 11:53:39 +0000 (+0000)
Subject: * wl-vars.el (wl-plugged): Make customizable.
X-Git-Tag: wl-2_9_6~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ceec261ed9ad78f5e151551f0e4e169f85c2f970;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-plugged): Make customizable.
* elmo-vars.el (elmo-localnews-folder-path): Ditto.
(elmo-maildir-folder-path): Ditto.
(elmo-msgdb-directory): Ditto.
(elmo-passwd-life-time): Ditto.
(elmo-msgdb-extra-fields): Ditto.
(elmo-enable-disconnected-operation): Ditto.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 393f37a..a19bef3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,12 @@
+2002-01-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-vars.el (elmo-localnews-folder-path): Make customizable.
+	(elmo-maildir-folder-path): Ditto.
+	(elmo-msgdb-directory): Ditto.
+	(elmo-passwd-life-time): Ditto.
+	(elmo-msgdb-extra-fields): Ditto.
+	(elmo-enable-disconnected-operation): Ditto.
+
 2002-01-22  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-vars.el (elmo-imap4-default-authenticate-type): Give
diff --git a/elmo/elmo-vars.el b/elmo/elmo-vars.el
index d1f34e2..b9550a8 100644
--- a/elmo/elmo-vars.el
+++ b/elmo/elmo-vars.el
@@ -48,10 +48,14 @@
   :group 'elmo)
 
 ;; Local
-(defvar elmo-localnews-folder-path "~/News"
-  "*Local news folder path.")
-(defvar elmo-maildir-folder-path "~/Maildir"
-  "*Maildir folder path.")
+(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).")
@@ -59,12 +63,19 @@ Each elements are regexp of folder name (This is obsolete).")
 (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.")
@@ -242,11 +253,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.
diff --git a/wl/ChangeLog b/wl/ChangeLog
index d37ce6f..531bda5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-22  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-plugged): Make customizable.
+
 2002-01-22  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-message.el (wl-message-buffer-prefetch-clear-timer): New function.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index bca224b..ff451b8 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2312,7 +2312,11 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
 ;; For disconnected operations.
 (defvar wl-plugged-hook nil)
 (defvar wl-unplugged-hook nil)
-(defvar wl-plugged t)
+(defcustom wl-plugged t
+  "*Plugged state at the startup.  Nil means off-line."
+  :type 'boolean
+  :group 'wl
+  :group 'wl-setting)
 
 ;; Internal variables used to modeline identifiers.
 (defvar wl-modeline-plug-status nil)