Use 'ctree-set-calist-with-default instead of

[elisp/semi.git] / mime-view.el

diff --git a/mime-view.el b/mime-view.el
index 4a2ff0f..c4fb8f0 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -524,11 +524,11 @@ if it is not nil.")
            (setq entry (cdr entry))
            )
          (setq shared (nreverse shared))
-         (ctree-set-calist-strictly
+         (ctree-set-calist-with-default
           'mime-acting-condition
           (append shared (list '(mode . "play")(cons 'method (cdr view)))))
          (if print
-             (ctree-set-calist-strictly
+             (ctree-set-calist-with-default
               'mime-acting-condition
               (append shared
                       (list '(mode . "print")(cons 'method (cdr view))))