Update.

[elisp/semi.git] / mime-partial.el

diff --git a/mime-partial.el b/mime-partial.el
index 1fa2caa..14b3ff9 100644 (file)
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -30,16 +30,15 @@
 
 (defun mime-combine-message/partial-pieces-automatically (entity situation)
   "Internal method for mime-view to combine message/partial messages
-automatically.  This function refers variable
-`mime-request-partial-message-method-alist' to select function to display
-partial messages using mime-view."
+automatically."
   (interactive)
   (let* ((id (cdr (assoc "id" situation)))
         (target (cdr (assq 'major-mode situation)))
         (subject-buf (eval (cdr (assq 'summary-buffer-exp situation))))
         subject-id
         (root-dir (expand-file-name
-                   (concat "m-prts-" (user-login-name)) mime-temp-directory))
+                   (concat "m-prts-" (user-login-name))
+                   temporary-file-directory))
         (request-partial-message-method
          (cdr (assq 'request-partial-message-method situation)))
         full-file)
@@ -55,7 +54,7 @@ partial messages using mime-view."
            (not (y-or-n-p "Merge partials?"))
            )
        (mime-store-message/partial-piece entity situation)
-      (setq subject-id (mime-entity-read-field entity 'Subject))
+      (setq subject-id (mime-read-field 'Subject entity))
       (if (string-match "[0-9\n]+" subject-id)
          (setq subject-id (substring subject-id 0 (match-beginning 0)))
        )