* wl-util.el (wl-read-shell-commande): New function or alias.

[elisp/wanderlust.git] / wl / wl-vars.el

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 479f744..f00b8dd 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -2154,33 +2154,33 @@ Each elements are regexp of folder name."
 (defcustom wl-show-plug-status-on-modeline t
   "If it is non-nil, show plugged status in modeline."
   :type 'boolean
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-plug-state-indicator-on  " [ON] "
   "String used to show plugged status ON."
   :type 'string
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-plug-state-indicator-off " [--] "
   "String used to show plugged status OFF."
   :type 'string
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-biff-check-folder-list nil
-  "All folders that match this list are automatically checked
-every intervals specified by wl-biff-check-interval."
-  :type '(repeat (regexp :tag "Folder"))
-  :group 'wl-highlight)
+  "All folders that include this list are automatically checked
+every intervals specified by `wl-biff-check-interval'."
+  :type '(repeat (string :tag "Folder"))
+  :group 'wl-setting)
 
 (defcustom wl-biff-check-interval 40
   "Number of seconds between updates of new mails in the mode line."
   :type 'integer
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-biff-use-idle-timer nil
   "Non-nil to use idle timer instead of strict timer for wl-biff"
   :type 'boolean
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-biff-state-indicator-on (if (and (featurep 'xemacs)
                                               (not (featurep 'mule)))
@@ -2193,7 +2193,7 @@ every intervals specified by wl-biff-check-interval."
                                           'iso-2022-jp)))
   "String used to show biff status ON."
   :type 'string
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-biff-state-indicator-off (if (and (featurep 'xemacs)
                                                (not (featurep 'mule)))
@@ -2202,7 +2202,7 @@ every intervals specified by wl-biff-check-interval."
                                         "[\e$B!>\e(B]")
   "String used to show biff status OFF."
   :type 'string
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-mode-line-display-priority-list '(biff plug title)
   "Displaying order of items to be shown in modeline.  The first item will
@@ -2221,7 +2221,7 @@ even if the value of this option is set to nil.  Here are some samples:
   :type '(repeat (radio (const :format "%v " biff)
                        (const :format "%v " plug)
                        (sexp :tag "Other" :value title)))
-  :group 'wl-highlight)
+  :group 'wl-setting)
 
 (defcustom wl-interactive-send t
   "*If non-nil, require your confirmation when sending draft message."
@@ -2278,6 +2278,12 @@ See also variable `wl-summary-next-no-unread-command'."
   :group 'wl-pref
   :group 'wl-setting)
 
+(defcustom wl-message-popup-buffers '(mime-echo-buffer-name epa-info-buffer)
+  "*List of buffer or name which is popped up with message buffer."
+  :type '(repeat (choice (symbol :tag "Variable")
+                        (string :tag "Buffer name")))
+  :group 'wl-setting)
+
 (defcustom wl-message-buffer-name " *WL:Message*"
   "*Buffer name for message buffers."
   :group 'wl-pref
@@ -2936,6 +2942,41 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
   :type 'string
   :group 'wl-pref)
 
+(defcustom wl-use-pgp-module
+  (condition-case nil
+      (progn
+       (require 'epg-config)
+       (epg-check-configuration (epg-configuration))
+       'epg)
+    (error 'pgg))
+  "*Which PGG library to be used."
+  :type '(choice (const :tag "EasyPG Library" epg)
+                (const :tag "PGG Library" pgg)
+                (const :tag "Don't use PGP" nil))
+  :group 'wl-pref)
+
+(defcustom wl-display-progress-threshold
+  '((wl-folder-insert-entity . 100)
+    (elmo-retrieve-message . 3000)
+    (t . 20))
+  "*Displaying progress message if number of total are more than this value."
+  :type '(choice (const :tag "No display" nil)
+                (const :tag "No limitation" 0)
+                (integer :tag "For all")
+                (repeat :tag "Each label"
+                        (cons (choice (const :tag "Default" t)
+                                      (symbol :tag "Label"))
+                              (choice (const :tag "No display" nil)
+                                      (const :tag "No limitation" 0)
+                                      (integer :tag "Threshold")))))
+  :group 'wl-pref)
+
+(defcustom wl-display-progress-function #'wl-simple-display-progress
+  "*A function to display progress message"
+  :type '(choice (const :tag "No display" nil)
+                (function :tag "Function"))
+  :group 'wl-pref)
+
 ;;; Internal variables
 (defvar wl-init nil)