start and end of the region fixed

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

diff --git a/mime-partial.el b/mime-partial.el
index 4cef03a..c240070 100644 (file)
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -40,7 +40,7 @@
        (error "Fatal. Unsupported mode")
        ))))
 
-(defun mime-combine-message/partials-automatically (beg end cal)
+(defun mime-method-to-combine-message/partial-pieces (beg end cal)
   "Internal method for mime-view to combine message/partial messages
 automatically.  This function refers variable
 `mime-view-partial-message-method-alist' to select function to display
@@ -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)
                      )