(mime-preview-condition): Delete (message-button . visible) to

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

diff --git a/mime-view.el b/mime-view.el
index 19978de..3a73c4e 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -353,7 +353,6 @@ Each elements are regexp of field-name.")
 
 (ctree-set-calist-strictly
  'mime-preview-condition '((type . application)(subtype . pgp)
-                          (message-button . visible)
                           (body . visible)))
 
 (ctree-set-calist-strictly
@@ -648,11 +647,6 @@ The compressed face will be piped to this command.")
         (end (mime-entity-point-max message-info))
         (media-type (mime-entity-media-type message-info))
         (media-subtype (mime-entity-media-subtype message-info))
-        (ctype (if media-type
-                   (if media-subtype
-                       (format "%s/%s" media-type media-subtype)
-                     (symbol-name media-type)
-                     )))
         (params (mime-entity-parameters message-info))
         (encoding (mime-entity-encoding message-info))
         end-of-header e nb ne subj)
@@ -731,11 +725,6 @@ The compressed face will be piped to this command.")
         (end (mime-entity-point-max entity))
         (media-type (mime-entity-media-type entity))
         (media-subtype (mime-entity-media-subtype entity))
-        (ctype (if media-type
-                   (if media-subtype
-                       (format "%s/%s" media-type media-subtype)
-                     (symbol-name media-type)
-                     )))
         (params (mime-entity-parameters entity))
         (encoding (mime-entity-encoding entity))
         end-of-header e nb ne subj)