From 607e8f1fe4f185590fa23711df72cc0faa9a8de8 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Tue, 16 Jun 1998 23:09:00 +0000
Subject: [PATCH] Rename `mime-method-to-store-message/partial' to
 `mime-store-message/partial-piece'.

---
 mime-partial.el |   18 +++++++-----------
 mime-play.el    |    2 +-
 mime-view.el    |    2 +-
 3 files changed, 9 insertions(+), 13 deletions(-)

diff --git a/mime-partial.el b/mime-partial.el
index c8ef3ed..2a75397 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -65,7 +65,7 @@ partial messages using mime-view."
     (if (or (file-exists-p full-file)
 	    (not (y-or-n-p "Merge partials?"))
 	    )
-	(mime-method-to-store-message/partial entity cal)
+	(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)
@@ -78,17 +78,13 @@ partial messages using mime-view."
 	    (while t
 	      (mime-view-partial-message target)
 	      (set-buffer article-buffer)
-	      (setq parameters
-		    (mime-entity-parameters mime-raw-message-info))
+	      (setq parameters (mime-entity-parameters entity))
 	      (setq the-id (cdr (assoc "id" parameters)))
-	      (if (string= the-id id)
-		  (progn
-		    (mime-method-to-store-message/partial
-		     mime-raw-message-info parameters)
-		    (if (file-exists-p full-file)
-			(throw 'tag nil)
-		      )
-		    ))
+	      (when (string= the-id id)
+		(mime-store-message/partial-piece entity parameters)
+		(if (file-exists-p full-file)
+		    (throw 'tag nil)
+		  ))
 	      (if (not (progn
 			 (set-buffer subject-buf)
 			 (end-of-line)
diff --git a/mime-play.el b/mime-play.el
index 90a5cfe..c438597 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -515,7 +515,7 @@ saved as binary.  Otherwise the region is saved by `write-region'."
       (write-region start end filename)
       )))
 
-(defun mime-method-to-store-message/partial (entity cal)
+(defun mime-store-message/partial-piece (entity cal)
   (goto-char (mime-entity-point-min entity))
   (let* ((root-dir
 	  (expand-file-name
diff --git a/mime-view.el b/mime-view.el
index fbb9a49..bc3ffaa 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -688,7 +688,7 @@ MEDIA-TYPE must be (TYPE . SUBTYPE), TYPE or t.  t means default."
 (ctree-set-calist-strictly
  'mime-acting-condition
  '((type . message)(subtype . partial)(mode . "play")
-   (method . mime-method-to-store-message/partial)
+   (method . mime-store-message/partial-piece)
    ))
 
 (ctree-set-calist-strictly
-- 
1.7.10.4