- (if (or (and wl-on-xemacs
- zmacs-regions zmacs-region-active-p)
- (and (not wl-on-xemacs)
- transient-mark-mode mark-active))
- (wl-mime-preview-follow-current-region)
- (mime-preview-follow-current-entity)))))))
+ (if (wl-region-exists-p)
+ (wl-mime-preview-follow-current-region)
+ (mime-preview-follow-current-entity)))))))