+(defcustom wl-demo-icon-name-alist
+ '(((string-match "^... Dec \\([ 01][0-9]\\|2[0-5]\\)" (current-time-string))
+ .
+ (concat "wl-" (wl-version-status) "-xmas-logo"))
+ (t
+ .
+ (concat "wl-" (wl-version-status) "-logo")))
+ "An alist to determine the basename of the logo file."
+ :type '(repeat (cons (symbol :tag "condition")
+ (symbol :tag "file name")))
+ :group 'wl-pref)
+
+(defcustom wl-demo-image-filter-alist nil
+ "An alist of image type and filter function."
+ :type '(repeat (cons symbol function))
+ :group 'wl-pref)
+