(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)
%D The day of the date field of the message (zero padded).
%W The weekday name of the date field of the message (zero padded).
%h The hour of the date field of the message (zero padded).
+%l The number in the mailing list.
%m The minute of the date field of the message (zero padded).
%[ An open bracket. If the message thread is linked,
it is replaced with '<'.
%f The from: field string of the message.
%s The subject: field string of the message.
%S The size of the message (if available).
+%t The branch of the thread.
+%@ `@' only if the first MIME part is multipart/mixed.
%~ If the previous spec is not zero-length, replaced with ' '.
+%# mailing list information (`(' ML-name [ ` ' ML-number ] `)')
If the format string contains the specifiers %( and %), the text between
them will have the specified number of columns.
:type 'boolean
:group 'wl-summary)
+(defcustom wl-additional-search-condition-fields nil
+ "*A list of field name which is used for candidates of search condition."
+ :type '(repeat (string :tag "Field name"))
+ :group 'wl-pref
+ :group 'wl-setting)
+
;;;; Hooks
(defvar wl-folder-mode-hook nil
"A hook called when wanderlust folder mode is started.
:type 'boolean
:group 'wl-folder)
-(defcustom wl-summary-persistent-mark-priority-list '(flag
+(defcustom wl-summary-persistent-mark-priority-list '(killed
+ flag
new
answered
forwarded
(const :tag "Default mark" nil))))
:group 'wl-summary)
+(defcustom wl-summary-killed-mark "X"
+ "Mark for killed message."
+ :type '(string :tag "Mark")
+ :group 'wl-summary-marks)
+
(defcustom wl-summary-uncached-mark "!"
"Mark for uncached message with no flag."
:type '(string :tag "Mark")
string)
:group 'wl-summary)
+(defcustom wl-summary-message-ring-max 16
+ "*Maximum size of message ring on summary buffer.
+Start discarding off end if gets this big."
+ :type 'integer
+ :group 'wl-summary)
+
(defcustom wl-summary-default-score 0
"*Default message score level.
All scores generated by the score files will be added to this score.
(defcustom wl-score-files-directory (concat elmo-msgdb-directory elmo-path-sep)
"*Name of the directory where score files will be stored.
-(default \"~/.elmo\")."
+\(default \"~/.elmo\")."
:type 'directory
:group 'wl)
: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."
: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
: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)
projects / elisp / wanderlust.git / blobdiff