;; 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.

diff --git a/ChangeLog b/ChangeLog
index ec25b4a..2e1ecdf 100644 (file)
--- 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.
+
+\f
 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 (file)
--- a/VERSION
+++ b/VERSION
@@ -76,7 +76,7 @@
 1.13.0 Matt\e-Dò\e-A                     \e$(B>>G$\e(B
 1.13.1 Kaga-Kasama             \e$(B2C2l3^4V\e(B
 1.13.2 Mikawa                  \e$(BH~@n\e(B
------- Komaiko                 \e$(B>.Iq;R\e(B
+1.13.3 Komaiko                 \e$(B>.Iq;R\e(B
 ------ Terai                   \e$(B;{0f\e(B
 ------ Meih\e-Dò\e-A                     \e$(BL@Jv\e(B
 ------ Komatsu                 \e$(B>.>>\e(B
@@ -144,7 +144,7 @@
 1.13.0 Shizuoka                \e$(B@E2,\e(B
 1.13.1 Abekawa                 \e$(B0BG\@n\e(B
 1.13.2 Mochimune               \e$(BMQ=!\e(B
------- Yaizu                   \e$(B>FDE\e(B
+1.13.3 Yaizu                   \e$(B>FDE\e(B
 ------ Nishi-Yaizu             \e$(B@>>FDE\e(B
 ------ Fijieda                 \e$(BF#;^\e(B
 ------ Rokug\e-Dò\e-A                    \e$(BO;9g\e(B

diff --git a/mime-partial.el b/mime-partial.el
index 14b3ff9..733f7f3 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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"