:type '(repeat (cons symbol function))
:group 'wl-pref)
-(defcustom wl-demo-background-color "#d9ffd9"
- "The color name for demo background.
-If nil, the default face background is used."
- :type '(string :tag "Color name")
- :group 'wl-pref)
-
(defcustom wl-envelope-from nil
"*Envelope From used in SMTP.
If nil, `wl-from' is used."
If nil, default smtp connection type is used."
:type '(choice (const :tag "default" nil)
(const :tag "Use STARTTLS" starttls)
+ (const :tag "SMTP over SSL" ssl)
symbol)
:group 'wl)
:group 'wl-draft)
(defcustom wl-draft-always-delete-myself nil
- "*Always delete myself from reciepient if non-nil."
+ "*Always delete myself from recipient if non-nil."
:type 'boolean
:group 'wl-draft)
:type 'boolean
:group 'wl-folder)
-(defcustom wl-summary-flag-priority-list '(new important answered unread)
- "List of flags reflected with the priority to a persistent mark."
+(defcustom wl-summary-persistent-mark-priority-list '(flag
+ new
+ answered
+ unread)
+ "List of flags reflected with the priority to persistent marks and faces."
:type '(repeat (radio (const :format "%v " new)
- (const :format "%v " important)
+ (const :format "%v " flag)
(const :format "%v " answered)
(const :format "%v " unread)))
:group 'wl-summary)
+(defcustom wl-summary-flag-alist
+ '((important "orange"))
+ "An alist to define the flags for the summary mode.
+Each element is a form like:
+\(SYMBOL-OF-FLAG COLOR\)
+Example:
+\((important \"orange\"\)
+ \(todo \"red\"\)
+ \(business \"green\"\)
+ \(private \"blue\"\)\)"
+ :type '(repeat (list (symbol :tag "flag")
+ (string :tag "color")))
+ :group 'wl-summary)
+
(defcustom wl-summary-new-uncached-mark "N"
"Mark for new and uncached message."
:type '(string :tag "Mark")
:type '(string :tag "Mark")
:group 'wl-summary-marks)
-(defcustom wl-summary-important-mark "$"
- "Mark for important message."
+(defcustom wl-summary-flag-mark "$"
+ "Mark for the messages which have tags."
:type '(string :tag "Mark")
:group 'wl-summary-marks)
:group 'wl-draft)
(defcustom wl-template-alist nil
- "Alist of template."
+ "Alist of template.
+First element of each list is a string specifies the name of the template.
+Remaining elements indicate actions. The format of actions is same as that
+of `wl-draft-config-alist'."
:type '(repeat (list (string :tag "Name")
(repeat
:inline t
(defcustom wl-draft-sendlog-max-size 20000
"*Max file size of sendlog."
- :type 'integer
+ :type '(choice (const :tag "Unlimited" nil)
+ integer)
:group 'wl-draft)
(defcustom wl-summary-default-number-column 5
'((?f (if (memq 'modeline wl-use-folder-petname)
(wl-folder-get-petname wl-message-buffer-cur-folder)
wl-message-buffer-cur-folder))
+ (?F wl-message-buffer-flag-indicator)
(?n wl-message-buffer-cur-number))
"An alist of format specifications for message buffer's mode-lines.
Each element is a list of following:
SPEC is a character for format specification.
STRING-EXP is an expression to get string to insert.")
-(defcustom wl-message-mode-line-format "Wanderlust: << %f / %n >>"
+(defcustom wl-message-mode-line-format "Wanderlust: << %f / %n %F>>"
"*A format string for message buffer's mode-line of Wanderlust.
It may include any of the following format specifications
which are replaced by the given information:
%f The folder name.
-%n The number of the message."
+%n The number of the message.
+%F The global flag indicator."
:group 'wl-pref
:type 'string)
(defcustom wl-message-ignored-field-list nil
"All fields that match this list will be hidden in message buffer.
-Each elements are regexp of field-name."
+Each elements are regexp of field-name.
+You can specify exceptions by `wl-message-visible-field-list'."
:type '(repeat (string :tag "Field Regexp"))
:group 'wl-pref
:group 'wl-setting)
(defcustom wl-message-visible-field-list nil
"All fields that match this list will be displayed in message buffer.
-Each elements are regexp of field-name."
+Each elements are regexp of field-name.
+This variable overwhelm `wl-message-ignored-field-list' settings."
:type '(repeat (string :tag "Field Regexp"))
:group 'wl-pref
:group 'wl-setting)
:group 'wl-pref)
(defcustom wl-fcc nil
- "*Folder Carbon Copy."
+ "*Folder Carbon Copy target initially added at creating draft buffer."
:type '(choice (const :tag "disable" nil)
string function)
:group 'wl-draft
:group 'wl-pref)
(defcustom wl-bcc nil
- "*Blind Carbon Copy."
+ "*Blind Carbon Copy target initially added at creating draft buffer."
:type '(choice (const :tag "disable" nil)
string)
:group 'wl-draft
regexp)
:group 'wl-summary)
+(defcustom wl-summary-save-file-suffix ".eml"
+ "Suffix for the saved file name."
+ :type 'string
+ :group 'wl-summary)
+
(defcustom wl-folder-removed-mark "#<removed>"
"Mark for removed folder."
:type 'string
(string :tag "Folder"))))
:group 'wl-folder)
-(defcustom wl-refile-policy-alist '(("^[-=']" . copy)
- (".*" . move))
- "*List of refile policy. Each element is (FOLDER-REGEXP . POLICY).
-POLICY is copy or move."
- :type '(repeat (cons (regexp :tag "Folder Regexp")
- (choice (const copy)
- (const move))))
- :group 'wl-summary
- :group 'wl-pref)
-
(defcustom wl-folder-hierarchy-access-folders '("^-[^\\.]*\\(:\\|@\\|$\\)"
- "^@$")
+ "^@$" "^'$")
"*Access group REGEXPs to make hierarchy structure."
:type '(repeat (string :tag "Regexp"))
:group 'wl-folder)
:group 'wl-expire)
(defcustom wl-summary-expire-reserve-marks
- (list wl-summary-important-mark
+ (list wl-summary-flag-mark
wl-summary-new-uncached-mark
wl-summary-new-cached-mark
wl-summary-unread-uncached-mark
"*Icon file for namazu folder.")
(defvar wl-shimbun-folder-icon "shimbun.xpm"
"*Icon file for shimbun folder.")
+(defvar wl-file-folder-icon "file.xpm"
+ "*Icon file for file folder.")
(defvar wl-maildir-folder-icon "maildir.xpm"
"*Icon file for maildir folder.")
(defvar wl-empty-trash-folder-icon "trash-e.xpm"