(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)))
'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)))
"[\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
: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."
: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
(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)