Sync up with semi-1_13.

diff --git a/Makefile b/Makefile
index a5c9677..598ff68 100644 (file)
--- 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 (file)
--- 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 (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-edit.el b/mime-edit.el
index afa4fb3..11e8e71 100644 (file)
--- 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 (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 3c47ceb..c787878 100644 (file)
--- 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"