X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-partial.el;h=618c5a6fddab532fdac69be235b7b3f652204d78;hb=10a330a36688503b11ce62b75d3bd914037d3535;hp=1fa2caa4cd87441d07dacc52064976b50f77e46f;hpb=5543d21ba623f74734611290089e61b0ae7ddc46;p=elisp%2Fsemi.git

diff --git a/mime-partial.el b/mime-partial.el
index 1fa2caa..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)
@@ -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)