From: morioka <morioka>
Date: Tue, 18 Mar 1997 13:56:18 +0000 (+0000)
Subject: (mime-combine-message/partials-automatically): Don't use
X-Git-Tag: Hokutetsu-Ishikawa-new~51
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4969b0098aef1947b3bf6f5a78a166efe50c0f74;p=elisp%2Fsemi.git

(mime-combine-message/partials-automatically): Don't use
preview-content-list.
---

diff --git a/mime-partial.el b/mime-partial.el
index 522211a..a6736ea 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -5,7 +5,7 @@
 ;; Author: OKABE Yasuo @ Kyoto University
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version:
-;;	$Id: mime-partial.el,v 0.7 1997-03-18 12:59:09 morioka Exp $ 
+;;	$Id: mime-partial.el,v 0.8 1997-03-18 13:56:18 morioka Exp $ 
 ;; Keywords: message/partial, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -68,7 +68,7 @@ partial messages using mime-view."
 	    (not (y-or-n-p "Merge partials?"))
 	    )
 	(mime-article/decode-message/partial beg end cal)
-      (let (cinfo the-id parameters)
+      (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)))
@@ -80,15 +80,11 @@ partial messages using mime-view."
 	    (while t
 	      (mime-view-partial-message target)
 	      (set-buffer article-buffer)
-	      (set-buffer mime::article/preview-buffer)
-	      (setq cinfo
-		    (mime::preview-content-info/content-info
-		     (car mime::preview/content-list)))
-	      (setq parameters (mime::content-info/parameters cinfo))
+	      (setq parameters (mime::content-info/parameters
+				mime::article/content-info))
 	      (setq the-id (cdr (assoc "id" parameters)))
-	      (if (equal the-id id)
+	      (if (string= the-id id)
 		  (progn
-		    (set-buffer article-buffer)
 		    (mime-article/decode-message/partial
 		     (point-min)(point-max) parameters)
 		    (if (file-exists-p full-file)