(mime-parse-buffer): Fixed.

diff --git a/mime-parse.el b/mime-parse.el
index 4a49855..a6eeb83 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -328,7 +328,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))
     ))