+(eval-after-load "mime-view"
+ '(if mime-setup-enable-inline-image
+ (require 'mime-image)))
+
+;; for text/html
+(defvar mime-setup-enable-inline-html
+ (locate-library "w3")
+ "*If it is non-nil, semi-setup sets up to use mime-w3.")
+
+(eval-after-load "mime-view"
+ '(when mime-setup-enable-inline-html
+ (autoload 'mime-preview-text/html "mime-w3")
+ (ctree-set-calist-strictly
+ 'mime-preview-condition
+ '((type . text)(subtype . html)
+ (body . visible)
+ (body-presentation-method . mime-preview-text/html)))
+
+ (set-alist 'mime-view-type-subtype-score-alist
+ '(text . html) 3)))