From 4e57b1c18eea28c94c62ca6a136e3788b6f2b1ea Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 8 Feb 1999 09:07:22 +0000
Subject: [PATCH] ;; Sync up with the latest semi-1_13. * semi-def.el
 (mime-user-interface-product): Update to 1.13.3 - "Yaizu".
 * VERSION: Put "1.13.3" to "Yaizu" for WEMI. *
 mime-partial.el
 (mime-combine-message/partial-pieces-automatically): Call
 `mime-store-message/partial-piece' in the buffer when it is
 called. * mime-play.el (mime-store-message/partial-piece):
 Don't move to point-min; don't expect called in raw-buffer.

---
 ChangeLog       |   14 ++++++++++++++
 VERSION         |    4 ++--
 mime-partial.el |    4 ++--
 mime-play.el    |    3 +--
 semi-def.el     |    2 +-
 5 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ec25b4a..2e1ecdf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+1999-02-08  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mime-partial.el
+	(mime-combine-message/partial-pieces-automatically): Call
+	`mime-store-message/partial-piece' in the buffer when it is
+	called.
+
+	* mime-play.el (mime-store-message/partial-piece): Don't move to
+	point-min.
+
+	* mime-play.el (mime-store-message/partial-piece): Don't expect
+	called in raw-buffer.
+
+
 1999-01-27  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* WEMI: Version 1.13.2 (Mochimune) released.
diff --git a/VERSION b/VERSION
index 54312ec..94d16e4 100644
--- a/VERSION
+++ b/VERSION
@@ -76,7 +76,7 @@
 1.13.0	Matt-Dò-A			$(B>>G$(B
 1.13.1	Kaga-Kasama		$(B2C2l3^4V(B
 1.13.2	Mikawa			$(BH~@n(B
-------	Komaiko			$(B>.Iq;R(B
+1.13.3	Komaiko			$(B>.Iq;R(B
 ------	Terai			$(B;{0f(B
 ------	Meih-Dò-A			$(BL@Jv(B
 ------	Komatsu			$(B>.>>(B
@@ -144,7 +144,7 @@
 1.13.0	Shizuoka		$(B@E2,(B
 1.13.1	Abekawa			$(B0BG\@n(B
 1.13.2	Mochimune		$(BMQ=!(B
-------	Yaizu			$(B>FDE(B
+1.13.3	Yaizu			$(B>FDE(B
 ------	Nishi-Yaizu		$(B@>>FDE(B
 ------	Fijieda			$(BF#;^(B
 ------	Rokug-Dò-A			$(BO;9g(B
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)
diff --git a/mime-play.el b/mime-play.el
index aa025df..12c8ad3 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -545,7 +545,6 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 ;;;
 
 (defun mime-store-message/partial-piece (entity cal)
-  (goto-char (mime-entity-point-min entity))
   (let* ((root-dir
 	  (expand-file-name
 	   (concat "m-prts-" (user-login-name)) temporary-file-directory))
@@ -553,7 +552,7 @@ It is registered to variable `mime-preview-quitting-method-alist'."
 	 (number (cdr (assoc "number" cal)))
 	 (total (cdr (assoc "total" cal)))
 	 file
-	 (mother mime-preview-buffer)
+	 (mother (current-buffer))
 	 )
     (or (file-exists-p root-dir)
 	(make-directory root-dir)
diff --git a/semi-def.el b/semi-def.el
index 92e1364..a7a6514 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product ["WEMI" (1 13 2) "Mochimune"]
+(defconst mime-user-interface-product ["WEMI" (1 13 3) "Yaizu"]
   "Implementation name, version name and numbers of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
-- 
1.7.10.4