X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-partial.el;h=c240070342dbc54b5893d70ed7e4cea82850ff2f;hb=1d4bb8d63818d3712e201b9d0f049961087dae6e;hp=dc2c4ff5f86e23869b84515ec9c9bab7f560e382;hpb=b175df8cf8de887a7435f1ad73fb4a489649f252;p=elisp%2Fsemi.git

diff --git a/mime-partial.el b/mime-partial.el
index dc2c4ff..c240070 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -1,14 +1,12 @@
 ;;; mime-partial.el --- Grabbing all MIME "message/partial"s.
 
-;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: OKABE Yasuo @ Kyoto University
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version:
-;;	$Id: mime-partial.el,v 0.6 1997-03-18 12:52:39 morioka Exp $ 
 ;; Keywords: message/partial, MIME, multimedia, mail, news
 
-;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
+;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -42,7 +40,11 @@
 	(error "Fatal. Unsupported mode")
 	))))
 
-(defun mime-article/grab-message/partials (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
+partial messages using mime-view."
   (interactive)
   (let* ((id (cdr (assoc "id" cal)))
 	 (target (cdr (assq 'major-mode cal)))
@@ -63,8 +65,8 @@
     (if (or (file-exists-p full-file)
 	    (not (y-or-n-p "Merge partials?"))
 	    )
-	(mime-article/decode-message/partial beg end cal)
-      (let (cinfo the-id parameters)
+	(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)
 	    (setq subject-id (substring subject-id 0 (match-beginning 0)))
@@ -76,17 +78,15 @@
 	    (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-entity-parameters mime-raw-message-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)
+		    (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)
 		      )