X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-partial.el;h=618c5a6fddab532fdac69be235b7b3f652204d78;hb=584179bd3daff862acde65a1e9b646ebf69dd3a2;hp=e085eab114c28dfdbce62bdea4ac0af0dbbb6e9a;hpb=cc0a722ec13e11cd7aa00db6929cb2505d1c9556;p=elisp%2Fsemi.git

diff --git a/mime-partial.el b/mime-partial.el
index e085eab..618c5a6 100644
--- a/mime-partial.el
+++ b/mime-partial.el
@@ -30,13 +30,12 @@
 
 (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))
@@ -56,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)))
 	)
@@ -73,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)