X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-partial.el;h=618c5a6fddab532fdac69be235b7b3f652204d78;hb=69309759a144e3c0326e6848a06d71f23f146fce;hp=f5378eb7924b0afbba8b4bebe9409cdd3e4a3edd;hpb=629d225950c5e181798cbc6440fcf6fa0d3bee7d;p=elisp%2Fsemi.git

diff --git a/mime-partial.el b/mime-partial.el
index f5378eb..618c5a6 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -30,16 +30,16 @@
 
 (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))))
+	 (mother (current-buffer))
 	 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 +55,7 @@ partial messages using mime-view."
 	    (not (y-or-n-p "Merge partials?"))
 	    )
 	(mime-store-message/partial-piece entity situation)
-      (setq subject-id (mime-read-field 'Subject entity))
+      (setq subject-id (mime-entity-read-field entity 'Subject))
       (if (string-match "[0-9\n]+" subject-id)
 	  (setq subject-id (substring subject-id 0 (match-beginning 0)))
 	)
@@ -72,8 +72,7 @@ partial messages using mime-view."
 		   (situation (mime-entity-situation message))
 		   (the-id (cdr (assoc "id" situation))))
 	      (when (string= the-id id)
-		(save-excursion
-		  (set-buffer (mime-entity-buffer message))
+		(with-current-buffer mother
 		  (mime-store-message/partial-piece message situation)
 		  )
 		(if (file-exists-p full-file)