(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.
(function :tag "Other"))
:group 'wl-draft)
+(defcustom wl-draft-send-confirm-type 'y-or-n-p
+ "*Confirmation type or function to use when send a message."
+ :type '(choice
+ (const :tag "y or n with scroll (j/k)" scroll-by-j/k)
+ (const :tag "y or n with scroll (SPC/BS)" scroll-by-SPC/BS)
+ (function-item y-or-n-p)
+ (function-item yes-or-no-p)
+ (function :tag "Other function"))
+ :group 'wl-draft)
+
(defcustom wl-draft-reply-with-argument-list
'(("From" . (("Reply-To" "Mail-Reply-To" "From")
("Mail-Followup-To" "To" "Cc")
: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
(const nntp)
(const pop3)
(const shimbun)
- (const nmz)
+ (const search)
(const archive)
(const mark)
(const cache)))
(defcustom wl-highlight-summary-line-help-echo-alist
'((flag wl-highlight-flag-folder-help-echo)
- (nmz elmo-message-file-name))
+ (search elmo-message-file-name))
"*Alist to display help-echo in summary buffer.
Each element is (folder-type handler(function)).
Handler take two arguments elmo-folder and message number and return string."
: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)
"*Icon file for archive folder.")
(defvar wl-pipe-folder-icon "pipe.xpm"
"*Icon file for pipe folder.")
-(defvar wl-nmz-folder-icon "nmz.xpm"
- "*Icon file for namazu folder.")
+(defvar wl-search-folder-icon "nmz.xpm"
+ "*Icon file for search folder.")
(defvar wl-shimbun-folder-icon "shimbun.xpm"
"*Icon file for shimbun folder.")
(defvar wl-file-folder-icon "file.xpm"
;;;; Obsolete variables.
+;; 2005-01-23
+(elmo-define-obsolete-variable 'wl-nmz-folder-icon
+ 'wl-search-folder-icon)
+
;; 2003-11-05
(elmo-define-obsolete-variable 'wl-summary-new-mark
'wl-summary-new-uncached-mark)