;;; Code:
-(require 'std11)
(require 'mime-def)
+(require 'std11)
-(eval-when-compile (require 'cl))
+(autoload 'mime-entity-body-buffer "mime")
+(autoload 'mime-entity-body-start-point "mime")
+(autoload 'mime-entity-body-end-point "mime")
;;; @ lexical analyzer
(save-excursion
(if buffer (set-buffer buffer))
(setq mime-message-structure
- (mime-parse-message (or representation-type 'buffer) nil))
+ (mime-parse-message (or representation-type
+ 'mime-buffer-entity) nil))
))