From e3061d39e6b0e4a1281f2309fa17009b40137fb5 Mon Sep 17 00:00:00 2001
From: keiichi <keiichi>
Date: Thu, 4 Mar 1999 01:24:40 +0000
Subject: [PATCH] Sync up with semi-1_13.

---
 Makefile        |    2 +-
 SEMI-MK         |    4 ++--
 VERSION         |    4 ++--
 mime-edit.el    |    6 ++++++
 mime-partial.el |    4 ++--
 mime-play.el    |    3 +--
 semi-def.el     |    2 +-
 7 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/Makefile b/Makefile
index a5c9677..598ff68 100644
--- a/Makefile
+++ b/Makefile
@@ -4,7 +4,7 @@
 
 PACKAGE = semi
 API	= 1.13
-RELEASE = 2
+RELEASE = 3
 
 TAR	= tar
 RM	= /bin/rm -f
diff --git a/SEMI-MK b/SEMI-MK
index 6a0de68..d74efc4 100644
--- a/SEMI-MK
+++ b/SEMI-MK
@@ -83,14 +83,14 @@ LISPDIR=%s\n" PREFIX EXEC_PREFIX LISPDIR))
   (Custom-make-dependencies)
 
   (compile-elisp-modules (append semi-modules-to-compile
-				 '(auto-autoloads custom-load))
+				 '(mime-setup auto-autoloads custom-load))
 			 ".")
   )
 
 (defun install-semi-package ()
   (config-semi-package)
   (install-elisp-modules (append semi-modules
-				 '(mime auto-autoloads custom-load))
+				 '(mime-setup auto-autoloads custom-load))
 			 "./"
 			 (expand-file-name SEMI_PREFIX
 					   (expand-file-name "lisp"
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-edit.el b/mime-edit.el
index afa4fb3..11e8e71 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -225,6 +225,7 @@ To insert a signature file automatically, call the function
     ("application"
      ("octet-stream" ("type" "" "tar" "shar"))
      ("postscript")
+     ("vnd.ms-powerpoint")
      ("x-kiss" ("x-cnf")))
     ("image"
      ("gif")
@@ -309,6 +310,11 @@ To insert a signature file automatically, call the function
      "base64"
      "attachment" (("filename" . file))
      )
+    ("\\.ppt$"				; MS Power Point
+     "application" "vnd.ms-powerpoint" nil
+     "base64"
+     "attachment" (("filename" . file))
+     )
 
     ("\\.pln$"
      "text"	"plain"		nil
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 3c47ceb..c787878 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product ["SEMI" (1 13 2) "Mikawa"]
+(defconst mime-user-interface-product ["SEMI" (1 13 3) "Komaiko"]
   "Product name, version number and code name of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
-- 
1.7.10.4