* wl-vars.el (wl-use-semi): Remove unused variable.

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

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 6f291e0..e8c7359 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -129,9 +129,6 @@
 
 (defvar wl-cs-cache wl-cs-local)
 
-(defvar wl-use-semi (module-installed-p 'mime-view) ; If nil, use tm.
-  "*Use SEMI or not.")
-
 (defcustom wl-from (and user-mail-address
                        (concat (and (user-full-name)
                                     (concat (elmo-address-quote-specials
@@ -413,7 +410,8 @@ FACE is a face for highlighting."
                 (symbol :tag "Set mark function")
                 (symbol :tag "Unset mark function")
                 (symbol :tag "Exec function")
-                (symbol :tag "Face symbol"))
+                (symbol :tag "Face symbol")
+                (string :tag "Document string"))
   :group 'wl-summary)
 
 ;; Important folders
@@ -964,8 +962,13 @@ cdr of each cons cell is used for draft message."
                        (const :format "%v " unread)))
   :group 'wl-summary)
 
-(defcustom wl-summary-new-mark "N"
-  "Mark for new message."
+(defcustom wl-summary-new-uncached-mark "N"
+  "Mark for new and uncached message."
+  :type '(string :tag "Mark")
+  :group 'wl-summary-marks)
+
+(defcustom wl-summary-new-cached-mark "?"
+  "Mark for new but already cached message."
   :type '(string :tag "Mark")
   :group 'wl-summary-marks)
 
@@ -1059,7 +1062,7 @@ This variable is local to the summary buffers."
   :group 'wl-score)
 
 (defcustom wl-summary-score-marks
-  (list wl-summary-new-mark)
+  (list wl-summary-new-uncached-mark wl-summary-new-cached-mark)
   "Persistent marks to scoring."
   :type '(repeat (string :tag "Mark"))
   :group 'wl-score)
@@ -1874,7 +1877,8 @@ Also variables which begin with `wl-' can be specified
   :group 'wl-pref)
 
 (defcustom wl-summary-auto-refile-skip-marks
-  (list wl-summary-new-mark
+  (list wl-summary-new-uncached-mark
+       wl-summary-new-cached-mark
        wl-summary-unread-uncached-mark
        wl-summary-unread-cached-mark)
   "Persistent marks to skip auto-refiling."
@@ -1896,7 +1900,7 @@ the message is skipped at cursor move."
   :group 'wl-summary)
 
 (defcustom wl-summary-incorporate-marks
-  (list wl-summary-new-mark
+  (list wl-summary-new-uncached-mark
        wl-summary-unread-uncached-mark)
   "Persistent marks to prefetch at `wl-summary-incorporate'."
   :type '(repeat (string :tag "Mark"))
@@ -2204,12 +2208,11 @@ e.x.
   :group 'wl-pref)
 
 (defcustom wl-folder-sync-range-alist
-  (list (cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^"
-                     (regexp-quote wl-queue-folder) "$")
-             "all")
+  (list (cons 'wl-require-update-all-folder-p "all")
        (cons "^'flag" "all"))
   "*Default sync range alist.  If no matches, `wl-default-sync-range' is used."
-  :type '(repeat (cons (regexp :tag "Folder Regexp")
+  :type '(repeat (cons (choice (regexp :tag "Folder Regexp")
+                              (symbol :tag "A function"))
                       (choice (const "update")
                               (const "all")
                               (const "rescan")
@@ -2487,7 +2490,8 @@ ex.
 
 (defcustom wl-summary-expire-reserve-marks
   (list wl-summary-important-mark
-       wl-summary-new-mark
+       wl-summary-new-uncached-mark
+       wl-summary-new-cached-mark
        wl-summary-unread-uncached-mark
        wl-summary-unread-cached-mark)
   "Permanent marks of reserved message when expire.
@@ -2825,6 +2829,10 @@ a symbol `bitmap', `xbm' or `xpm' in order to force the image format."
 
 ;;;; Obsolete variables.
 
+;; 2003-11-05
+(elmo-define-obsolete-variable 'wl-summary-new-mark
+                              'wl-summary-new-uncached-mark)
+
 ;; 2003-07-15 delete -> dispose
 (elmo-define-obsolete-variable 'wl-delete-folder-alist
                               'wl-dispose-folder-alist)