;;; 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
(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"))
(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))