From: morioka <morioka>
Date: Sat, 21 Mar 1998 21:23:24 +0000 (+0000)
Subject: Set up for `mime-preview-condition' instead of
X-Git-Tag: semi-1_1_2~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8c4c880a9852fb834ce9031c099ff3ba6b6a9183;p=elisp%2Fsemi.git

Set up for `mime-preview-condition' instead of
`mime-view-body-visible-condition' and
`mime-view-content-filter-alist'.
---

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")