Rename `mime-method-to-store-message/partial' to

`mime-store-message/partial-piece'.

diff --git a/mime-partial.el b/mime-partial.el
index c8ef3ed..2a75397 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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