X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-demo.el;h=9e852637a4cd2c2b2abdc85ae382d561b3b13958;hb=2b60ee575c9ce947fc9893618068e84e4a395720;hp=04f5e365fd1b02e915fb995e95461b1214223707;hpb=c1884b5a2a90263b4d01228a93d346a20f76bdba;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index 04f5e36..9e85263 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -29,7 +29,7 @@
 ;;; Code:
 
 (defconst wl-demo-copyright-notice
-  "Copyright (C) 1998-2002 Yuuichi Teranishi <teranisi@gohome.org>"
+  "Copyright (C) 1998-2003 Yuuichi Teranishi <teranisi@gohome.org>"
   "A declaration of the copyright on Wanderlust.")
 
 (eval-when-compile
@@ -41,7 +41,7 @@
 
 (defconst wl-demo-icon-name
   (concat "wl-" (wl-version-status)
-	  (if (string-match "^... Dec \\([ 1][0-9]\\|2[0-5]\\)"
+	  (if (string-match "^... Dec \\([ 01][0-9]\\|2[0-5]\\)"
 			    (current-time-string))
 	      "-xmas-logo"
 	    "-logo"))
@@ -144,8 +144,9 @@ Return a number of lines that an image occupies in the buffer."
       (when (boundp 'default-gutter-visible-p)
 	(set-specifier (symbol-value 'default-gutter-visible-p)
 		       nil (current-buffer)))
-      (set-specifier (symbol-value 'scrollbar-height) 0 (current-buffer))
-      (set-specifier (symbol-value 'scrollbar-width) 0 (current-buffer)))
+      (when (featurep 'scrollbar)
+	(set-specifier (symbol-value 'scrollbar-height) 0 (current-buffer))
+	(set-specifier (symbol-value 'scrollbar-width) 0 (current-buffer))))
     (if (and file
 	     (if (and wl-icon-directory
 		      (file-directory-p wl-icon-directory))