;;; 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
entity
(with-current-buffer (mime-entity-body-buffer entity)
(save-restriction
- (narrow-to-region (mime-buffer-entity-body-start-internal entity)
- (mime-buffer-entity-body-end-internal entity))
+ (narrow-to-region (mime-entity-body-start-point entity)
+ (mime-entity-body-end-point entity))
(list (mime-parse-message
(mime-entity-representation-type-internal entity) nil
entity (cons 0 (mime-entity-node-id-internal entity))))
(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))
))