* wl-vars.el (wl-summary-persistent-mark-priority-list): Add `killed'.

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

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index bb45388..a6e90aa 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1047,7 +1047,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
@@ -1074,6 +1075,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")