From 8c4c880a9852fb834ce9031c099ff3ba6b6a9183 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 21 Mar 1998 21:23:24 +0000 Subject: [PATCH] Set up for `mime-preview-condition' instead of `mime-view-body-visible-condition' and `mime-view-content-filter-alist'. --- mime-image.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/mime-image.el b/mime-image.el index 8e5b947..4eb0eef 100644 --- a/mime-image.el +++ b/mime-image.el @@ -114,16 +114,19 @@ (format (nth 2 rule))) (if (image-inline-p format) (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-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-view-body-visible-condition - (list (cons 'type type)(cons 'subtype subtype))) + 'mime-preview-condition + (list (cons 'type type)(cons 'subtype subtype) + '(body . visible) + (cons 'body-filter + #'mime-view-filter-for-image))) ) )))) '((image jpeg jpeg) @@ -137,7 +140,7 @@ (image x-mag mag) (image png png) )) - + (defvar mime-view-ps-to-gif-command "pstogif") -- 1.7.10.4