- (if (display-graphic-p)
- (setq wl-modeline-biff-state-on
- (apply 'propertize wl-biff-state-indicator-on
- `(,@props display ,wl-biff-mail-image))
- wl-modeline-biff-state-off
- (apply 'propertize wl-biff-state-indicator-off
- `(,@props display ,wl-biff-nomail-image)))
- (setq wl-modeline-biff-state-on
- (apply 'propertize wl-biff-state-indicator-on props)
- wl-modeline-biff-state-off
- (apply 'propertize wl-biff-state-indicator-off props)))))
+ (if (wl-e21-display-image-p)
+ (progn
+ (unless wl-biff-mail-image
+ (setq wl-biff-mail-image (wl-e21-find-image
+ `((:type xpm
+ :file ,wl-biff-mail-icon
+ :ascent center)))
+ wl-biff-nomail-image (wl-e21-find-image
+ `((:type xpm
+ :file ,wl-biff-nomail-icon
+ :ascent center)))))
+ (setq wl-modeline-biff-state-on
+ (apply 'propertize wl-biff-state-indicator-on
+ `(display ,wl-biff-mail-image ,@props))
+ wl-modeline-biff-state-off
+ (apply 'propertize wl-biff-state-indicator-off
+ `(display ,wl-biff-nomail-image ,@props))))
+ (if props
+ (setq wl-modeline-biff-state-on
+ (apply 'propertize wl-biff-state-indicator-on props)
+ wl-modeline-biff-state-off
+ (apply 'propertize wl-biff-state-indicator-off props))
+ (setq wl-modeline-biff-state-on wl-biff-state-indicator-on
+ wl-modeline-biff-state-off wl-biff-state-indicator-off)))))