filename)
))
-(luna-define-method mime-insert-header ((entity cooked)
+(luna-define-method mime-insert-header ((entity mime-cooked-entity)
&optional invisible-fields
visible-fields)
(let (default-mime-charset)
(funcall (car (luna-class-find-functions
- (luna-find-class 'mime-buffer-entity))
- 'mime-insert-header)
+ (luna-find-class 'mime-buffer-entity)
+ 'mime-insert-header))
entity invisible-fields visible-fields)
))