- (if handle
- (progn
- (mime-entity-set-content-type-internal handle ctl)
- (mime-entity-set-encoding-internal handle cte)
- (mime-entity-set-content-disposition-internal handle cd)
- (mmgnus-entity-set-content-description-internal handle description)
- (mmgnus-entity-set-header-internal handle header-string)
- (setq result handle))
- (setq result (mm-make-handle nil nil ctl cte nil cd
- description nil id nil header-string)))
+ (mime-entity-set-content-type handle ctl)
+ (mime-entity-set-encoding handle cte)
+ (mime-entity-set-content-disposition-internal handle cd)
+ (mmgnus-entity-set-content-description-internal handle description)