X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-partial.el;h=618c5a6fddab532fdac69be235b7b3f652204d78;hb=17cacd9ff91f19bac96c1b6f9db2c414a53d2b68;hp=14b3ff95d44f71e1d09996ccaa6a042d7ec1365b;hpb=cbd8ebac6470304d2bd323c24d45ec620b72abff;p=elisp%2Fsemi.git

diff --git a/mime-partial.el b/mime-partial.el
index 14b3ff9..618c5a6 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))
@@ -54,7 +55,7 @@ automatically."
 	    (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)))
 	)
@@ -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)