(memq (mime-view-entity-type/subtype entity)
mime-view-force-inline-types)
;; whether Content-Disposition header exists.
- (and
- (mime-entity-content-disposition entity)
- (eq 'inline
- (mime-content-disposition-type
- (mime-entity-content-disposition entity))))))
+ ;; #### FIXME. This is way too ugly.
+ (not (and
+ (mime-entity-content-disposition entity)
+ (not (eq 'inline
+ (mime-content-disposition-type
+ (mime-entity-content-disposition entity))))))))
;; This is attachment
(setq header-is-visible nil
body-is-visible nil))