+(defcustom wl-show-plug-status-on-modeline t
+ "If it is non-nil, show plugged status in modeline."
+ :type 'boolean
+ :group 'wl-highlight)
+
+(defcustom wl-plug-state-indicator-on " [ON] "
+ "String used to show plugged status ON."
+ :type 'string
+ :group 'wl-highlight)
+
+(defcustom wl-plug-state-indicator-off " [--] "
+ "String used to show plugged status OFF."
+ :type 'string
+ :group 'wl-highlight)
+
+(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 Regexp"))
+ :group 'wl-highlight)
+
+(defcustom wl-biff-check-interval 40
+ "Number of seconds between updates of new mails in the mode line."
+ :type 'integer
+ :group 'wl-highlight)
+
+(defcustom wl-biff-state-indicator-on (if (and (featurep 'xemacs)
+ (not (featurep 'mule)))
+ "[Mail]"
+ (decode-coding-string
+ (read "\"[\e$B\\\")\e(B]\"")
+ 'iso-2022-jp)) ; Youbin mark
+ "String used to show biff status ON."
+ :type 'string
+ :group 'wl-highlight)
+
+(defcustom wl-biff-state-indicator-off "[\e$B!>\e(B]"
+ "String used to show biff status OFF."
+ :type 'string
+ :group 'wl-highlight)
+
+(defcustom wl-mode-line-display-priority-list '(biff plug title)
+ "Displaying order of items to be shown in modeline. The first item will
+be placed in the leftmost. The significant items are `biff' and `plug';
+otherwise, e.g. `title', corresponds to the things except for the biff
+staus nor the plugged status. The default order is '(biff plug title)
+even if the value of this option is set to nil. Here are some samples:
+
+;; Plugged status first:
+\(setq wl-mode-line-display-priority-list '(plug))
+
+;; Biff status, Title of Wanderlust, Plugged status:
+\(setq wl-mode-line-display-priority-list '(biff title plug))
+
+"
+ :type '(repeat (radio (const :format "%v " biff)
+ (const :format "%v " plug)
+ (sexp :tag "Other" :value title)))
+ :group 'wl-highlight)
+