- (set-buffer (mime-entity-buffer entity))
- (write-region (mime-entity-point-min entity)
- (mime-entity-point-max entity) filename)
+ (set-buffer (mime-entity-buffer-internal entity))
+ (write-region (mime-entity-header-start-internal entity)
+ (mime-entity-body-end-internal entity)
+ filename)
+ ))
+
+(mm-define-method write-entity-body ((entity cooked) filename)
+ (save-excursion
+ (set-buffer (mime-entity-buffer-internal entity))
+ (write-region (mime-entity-body-start-internal entity)
+ (mime-entity-body-end-internal entity)
+ filename)
+ ))
+
+(mm-define-method insert-decoded-header ((entity cooked)
+ &optional invisible-fields
+ visible-fields)
+ (let (default-mime-charset)
+ (funcall (mime-find-function 'insert-decoded-header 'buffer)
+ entity invisible-fields visible-fields)