From: morioka <morioka>
Date: Sun, 21 Jun 1998 18:27:56 +0000 (+0000)
Subject: (mime-combine-message/partial-pieces-automatically): Fixed.
X-Git-Tag: semi-1_7_1~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d0753e89375dbe44f2b3d01146a10f804f720e2f;p=elisp%2Fsemi.git

(mime-combine-message/partial-pieces-automatically): Fixed.
---

diff --git a/mime-partial.el b/mime-partial.el
index 9401a89..c2aef5b 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -66,22 +66,23 @@ partial messages using mime-view."
 	    (not (y-or-n-p "Merge partials?"))
 	    )
 	(mime-store-message/partial-piece entity cal)
-      (let (the-id parameters)
-	(setq subject-id (std11-field-body "Subject"))
-	(if (string-match "[0-9\n]+" subject-id)
-	    (setq subject-id (substring subject-id 0 (match-beginning 0)))
-	  )
-	(save-excursion
-	  (set-buffer subject-buf)
-	  (while (search-backward subject-id nil t))
-	  (catch 'tag
-	    (while t
-	      (mime-view-partial-message target)
-	      (set-buffer article-buffer)
-	      (setq parameters (mime-entity-parameters entity))
-	      (setq the-id (cdr (assoc "id" parameters)))
+      (setq subject-id (mime-entity-read-field entity 'Subject))
+      (if (string-match "[0-9\n]+" subject-id)
+	  (setq subject-id (substring subject-id 0 (match-beginning 0)))
+	)
+      (save-excursion
+	(set-buffer subject-buf)
+	(while (search-backward subject-id nil t))
+	(catch 'tag
+	  (while t
+	    (mime-view-partial-message target)
+	    (set-buffer article-buffer)
+	    (let* ((situation
+		    (mime-entity-situation mime-message-structure))
+		   (the-id (cdr (assoc "id" situation))))
 	      (when (string= the-id id)
-		(mime-store-message/partial-piece entity parameters)
+		(mime-store-message/partial-piece mime-message-structure
+						  situation)
 		(if (file-exists-p full-file)
 		    (throw 'tag nil)
 		  ))
@@ -92,8 +93,8 @@ partial messages using mime-view."
 			 ))
 		  (error "not found")
 		)
-	      )
-	    ))))))
+	      ))
+	  )))))
 
 
 ;;; @ end