-;; (ctree-set-calist-strictly
-;; 'mime-acting-condition
-;; '((type . audio)(subtype . basic)(mode . "play")
-;; (method "tm-au" nil 'file "" 'encoding 'mode 'name)
-;; ))
-
-;; (ctree-set-calist-strictly
-;; 'mime-acting-condition
-;; '((type . image)(mode . "play")
-;; (method "tm-image" nil 'file "" 'encoding 'mode 'name)
-;; ))
-;; (ctree-set-calist-strictly
-;; 'mime-acting-condition
-;; '((type . image)(mode . "print")
-;; (method "tm-image" nil 'file "" 'encoding 'mode 'name)
-;; ))
-
-;; (ctree-set-calist-strictly
-;; 'mime-acting-condition
-;; '((type . video)(subtype . mpeg)(mode . "play")
-;; (method "tm-mpeg" nil 'file "" 'encoding 'mode 'name)
-;; ))
-
-;; (ctree-set-calist-strictly
-;; 'mime-acting-condition
-;; '((type . application)(subtype . postscript)(mode . "play")
-;; (method "tm-ps" nil 'file "" 'encoding 'mode 'name)
-;; ))
-;; (ctree-set-calist-strictly
-;; 'mime-acting-condition
-;; '((type . application)(subtype . postscript)(mode . "print")
-;; (method "tm-ps" nil 'file "" 'encoding 'mode 'name)
-;; ))
-