(wl-expire-folder): New function (split from

[elisp/wanderlust.git] / wl / wl-vars.el

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index a87f064..329754e 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -727,6 +727,12 @@ when `wl-prefetch-confirm' is non-nil."
   :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.
@@ -895,6 +901,16 @@ Prepared candidates are 'wl-draft-send-mail-with-smtp,
                (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")
@@ -1037,7 +1053,8 @@ cdr of each cons cell is used for preparing headers of draft message."
   :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
@@ -1064,6 +1081,11 @@ Example:
                               (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")
@@ -1138,6 +1160,12 @@ If nil, it is adjust to the default time zone information
                 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.
@@ -1193,7 +1221,7 @@ In sync-all or rescan."
 
 (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)
 
@@ -2250,6 +2278,12 @@ See also variable `wl-summary-next-no-unread-command'."
   :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
@@ -2267,7 +2301,7 @@ and reserved buffer cache."
                      (const nntp)
                      (const pop3)
                      (const shimbun)
-                     (const nmz)
+                     (const search)
                      (const archive)
                      (const mark)
                      (const cache)))
@@ -2467,7 +2501,8 @@ already existing summary."
 
 (defcustom wl-summary-showto-folder-regexp nil
   "Regexp specifying the folder that shows the To (or Newsgroups) field as
-Sender information in summary mode."
+Sender information in summary mode. It is effective when the value of
+`wl-summary-from-function' is `wl-summary-default-from'"
   :type '(choice (const :tag "none" nil)
                 regexp)
   :group 'wl-summary)
@@ -2517,7 +2552,7 @@ ex.
                               (string :tag "Folder"))))
   :group 'wl-folder)
 
-(defcustom wl-folder-hierarchy-access-folders '("^-[^\\.]*\\(:\\|@\\|$\\)"
+(defcustom wl-folder-hierarchy-access-folders '("^-[^.]*\\(:\\|@\\|$\\)"
                                                "^@$" "^'$")
   "*Access group REGEXPs to make hierarchy structure."
   :type '(repeat (string :tag "Regexp"))
@@ -2849,7 +2884,7 @@ This variable can also be a regex."
 
 (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."
@@ -2907,6 +2942,41 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
   :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)
 
@@ -2966,8 +3036,8 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
   "*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"
@@ -3009,6 +3079,10 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
 
 ;;;; 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)