X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-partial.el;h=c240070342dbc54b5893d70ed7e4cea82850ff2f;hb=a23e98ae883182b8b3a7b8c642c21844c602d4b9;hp=4a6911a9535711d2c14d1a9df75aab580d789ad6;hpb=5767df50dd467cc670a5d92cbea0b307865e7f60;p=elisp%2Fsemi.git

diff --git a/mime-partial.el b/mime-partial.el
index 4a6911a..c240070 100644
--- 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
@@ -65,7 +65,7 @@ partial messages using mime-view."
     (if (or (file-exists-p full-file)
 	    (not (y-or-n-p "Merge partials?"))
 	    )
-	(mime-display-message/partial beg end cal)
+	(mime-method-to-store-message/partial beg end cal)
       (let (the-id parameters)
 	(setq subject-id (std11-field-body "Subject"))
 	(if (string-match "[0-9\n]+" subject-id)
@@ -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-display-message/partial
-		     (point-min)(point-max) parameters)
+		    (mime-method-to-store-message/partial
+		     (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)
 		      )