X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-parse.el;h=5442896683182267bc68435b5f637983c57fe7f0;hb=33c09c6d50e175c0ae19b6c0920415a1ad6a9e81;hp=a445822a1b3de4e27604d877c2db3855a3f5b564;hpb=6107780bce3cdaafec9c62b97606049fb3a531aa;p=elisp%2Fflim.git

diff --git a/mime-parse.el b/mime-parse.el
index a445822..5442896 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -24,10 +24,12 @@
 
 ;;; 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
@@ -330,7 +332,8 @@ If buffer is omitted, it parses current-buffer."
   (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))
     ))