* wl-vars.el (wl-demo-background-color): The value can be nil.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b9cfce4..b69d338 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-01  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-vars.el (wl-demo-background-color): The value can be nil.
+
 2004-01-29  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-setup-mouse)[non-xemacs]: Bind mouse-wheel1

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 2b527cc..32aed4f 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -501,7 +501,8 @@ You had better set this variable if you set 'wl-insert-mail-followup-to' as t."
 (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")
+  :type '(choice (const :tag "Default")
+                (string :tag "Color name"))
   :group 'wl-pref)
 
 (defcustom wl-envelope-from nil