- (let ((type/subtype (mime-type/subtype-string type subtype)))
- ;; (set-alist 'mime-view-content-filter-alist
- ;; type/subtype #'mime-view-filter-for-image)
- (set-alist 'mime-view-image-converter-alist
- type/subtype format)
- ;; (add-to-list
- ;; 'mime-view-visible-media-type-list
- ;; ctype)
- (ctree-set-calist-strictly
- 'mime-preview-condition
- (list (cons 'type type)(cons 'subtype subtype)
- '(body . visible)
- '(body-presentation-method . with-filter)
- (cons 'body-filter
- #'mime-view-filter-for-image)))
- )
- ))))
+ (ctree-set-calist-strictly
+ 'mime-preview-condition
+ (list (cons 'type type)(cons 'subtype subtype)
+ '(body . visible)
+ '(body-presentation-method . with-filter)
+ (cons 'body-filter #'mime-preview-filter-for-image)
+ (cons 'image-format format))
+ )))))