(defgroup wl nil
"Wanderlust, a news and mail reading software."
:tag "Wanderlust"
- :link (` (custom-manual
- (, (if (and (boundp 'current-language-environment)
- (string-equal "Japanese"
- (symbol-value 'current-language-environment)))
- "(wl-ja)Top"
- "(wl)Top"))))
+ :link `(custom-manual
+ ,(if (and (boundp 'current-language-environment)
+ (string-equal "Japanese"
+ (symbol-value 'current-language-environment)))
+ "(wl-ja)Top"
+ "(wl)Top"))
:group 'news
:group 'mail)
:group 'wl-setting)
(defcustom wl-message-header-button-alist
- (` (("^\\(References\\|Message-Id\\|In-Reply-To\\):"
- "<[^>\n ]+>"
- 0 wl-message-button-refer-article 0)
- ("^[^:]+:"
- "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)"
- 1 wl-message-button-refer-article 3)))
+ '(("^\\(References\\|Message-Id\\|In-Reply-To\\):"
+ "<[^>\n ]+>"
+ 0 wl-message-button-refer-article 0)
+ ("^[^:]+:"
+ "\\(<\\(url: \\)?news:\\([^>\n ]*\\)>\\)"
+ 1 wl-message-button-refer-article 3))
"Alist of headers and regexps to match buttons in message headers."
:type '(repeat
(list (regexp :tag "Header")
(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."