X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-vars.el;h=8d19ee7b74fbcfd89cd8448196a9de55072da91a;hb=a188e316446f771a0900c8e05026e39b224eb0f9;hp=2b527ccf34ebe9906e81744e64ef1f6ee12fb16f;hpb=58000cae51a9efe9b49db3f216e9d720225c7e65;p=elisp%2Fwanderlust.git diff --git a/wl/wl-vars.el b/wl/wl-vars.el index 2b527cc..8d19ee7 100644 --- a/wl/wl-vars.el +++ b/wl/wl-vars.el @@ -498,12 +498,6 @@ You had better set this variable if you set 'wl-insert-mail-followup-to' as t." :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." @@ -546,6 +540,7 @@ references field of the current draft." 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) @@ -889,7 +884,7 @@ cdr of each cons cell is used for draft message." :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) @@ -977,14 +972,31 @@ cdr of each cons cell is used for draft message." :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") @@ -1020,8 +1032,8 @@ cdr of each cons cell is used for draft message." :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) @@ -1266,7 +1278,10 @@ See also variable `wl-draft-parent-folder'." :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 @@ -1392,7 +1407,8 @@ You can also set it to a list of setting. (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 @@ -1574,6 +1590,7 @@ which appear just before @." '((?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: @@ -1581,13 +1598,14 @@ 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) @@ -1622,14 +1640,16 @@ which are replaced by the given information: (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) @@ -2326,6 +2346,11 @@ Sender information in summary mode." 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 "#" "Mark for removed folder." :type 'string @@ -2360,16 +2385,6 @@ ex. (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." @@ -2513,7 +2528,7 @@ ex. :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 @@ -2818,6 +2833,8 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format." "*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"