From: yamaoka <yamaoka>
Date: Fri, 16 Jun 2000 02:37:05 +0000 (+0000)
Subject: (wl-demo-display-logo): Made it can be a image type.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c199b9872e2594b4ed1bee341e5b76095f7b5ba5;p=elisp%2Fwanderlust.git

(wl-demo-display-logo): Made it can be a image type.
---

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 6f9bb73..a5688ce 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1896,12 +1896,18 @@ This variable can also be a regex. "
   :group 'wl-pref)
 
 (defcustom wl-demo-display-logo (or (and (featurep 'xemacs)
-					 (featurep 'xpm))
+					 (if (featurep 'xpm)
+					     'xpm 'xbm))
 				    (and (module-installed-p 'image)
-					 (image-type-available-p 'xpm))
-				    (module-installed-p 'bitmap))
-  "If non-nil, display image (or bitmap) logo in th Wanderlust opening demo."
-  :type 'boolean
+					 (if (image-type-available-p 'xpm)
+					     'xpm 'xbm))
+				    (and (module-installed-p 'bitmap)
+					 'xbm))
+  "If non-nil, show graphic logo in the startup screen.  You can set it to
+a symbol `xbm' to limit the image format to XBM even if XPM can be shown."
+  :type '(radio (const :tag "OFF" nil)
+		(const :tag "XBM (possibly BITMAP-MULE)" xbm)
+		(sexp :format "ON  (any format)" :value t))
   :group 'wl-pref)
 
 ;;; Internal variables