mime-play.el: Fixed for VM.

[elisp/semi.git] / mime-partial.el

diff --git a/mime-partial.el b/mime-partial.el
index ee401f5..c240070 100644 (file)
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -79,12 +79,14 @@ partial messages using mime-view."
              (mime-view-partial-message target)
              (set-buffer article-buffer)
              (setq parameters
-                   (mime-entity-info-parameters mime-raw-content-info))
+                   (mime-entity-parameters mime-raw-message-info))
              (setq the-id (cdr (assoc "id" parameters)))
              (if (string= the-id id)
                  (progn
                    (mime-method-to-store-message/partial
-                    (point-min)(point-max) parameters)
+                    (mime-entity-point-min mime-raw-message-info)
+                    (mime-entity-point-max mime-raw-message-info)
+                    parameters)
                    (if (file-exists-p full-file)
                        (throw 'tag nil)
                      )