From: morioka <morioka>
Date: Mon, 8 Feb 1999 08:40:39 +0000 (+0000)
Subject: (mime-combine-message/partial-pieces-automatically): Call
X-Git-Tag: semi-1_13_3~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1724dda2899a43d0906a44ca05e6d0582f1173c7;p=elisp%2Fsemi.git

(mime-combine-message/partial-pieces-automatically): Call
`mime-store-message/partial-piece' in the buffer when it is called.
---

diff --git a/mime-partial.el b/mime-partial.el
index 14b3ff9..733f7f3 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -35,6 +35,7 @@ automatically."
   (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))
@@ -71,8 +72,7 @@ automatically."
 		   (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)