Sync up with the latest semi-1_13 branch.

diff --git a/ChangeLog b/ChangeLog
index 84f0e68..23f07d3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1999-07-29  MORIOKA Tomohiko  <tomo@m17n.org>
+
+       * mime-play.el (mime-play-entity): Get media-type from situation
+       instead of entity; display prompt and call `mime-save-content' if
+       method is not found.
+       (mime-detect-content): Call `mime-play-entity' even if media-type
+       specification is not found in `mime-magic-type-alist'.
+
 1999-07-28  MORIOKA Tomohiko  <tomo@m17n.org>
 
        * mime-view.el (mime-view-entity-title): Use

diff --git a/VERSION b/VERSION
index 02e2f71..4bb062d 100644 (file)
--- a/VERSION
+++ b/VERSION
@@ -212,7 +212,7 @@
 ;;-------------------------------------------------------------------------
 1.13.0 Saigata                 \e$(B:T3c\e(B     ; = JR \e$(B?.1[K\@~\e(B
 1.13.1 Kubiki                  \e$(B$/$S$-\e(B
-1.13.2 \e-DÒike-Ikoinomori\e-A           \e$(BBgCS$$$3$$$N$b$j\e(B
+1.13.2 \e-DÒike-Ikoinomori\e-A           \e$(BBgCS$$$3$$$N?9\e(B
 
 
 [etc.]

diff --git a/mime-play.el b/mime-play.el
index 0c13092..5cf0aac 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -326,7 +326,11 @@ specified, play as it.  Default MODE is \"play\"."
           ;;  )
          (t
           (mime-show-echo-buffer "No method are specified for %s\n"
-                                 (mime-entity-type/subtype entity))
+                                 (mime-type/subtype-string
+                                  (cdr (assq 'type situation))
+                                  (cdr (assq 'subtype situation))))
+          (if (y-or-n-p "Do you want to save current entity to disk?")
+              (mime-save-content entity situation))
           ))
     ))
 
@@ -501,16 +505,14 @@ SUBTYPE is symbol to indicate subtype of media-type.")
                          )
                      t)))
        (setq rest (cdr rest))))
-    (if type
-       (mime-play-entity
-        entity
-        (put-alist 'type type
-                   (put-alist 'subtype subtype
-                              (del-alist 'method
-                                         (copy-alist situation))))
-        'mime-detect-content)
-      ))
-  )
+    (setq situation (del-alist 'method (copy-alist situation)))
+    (mime-play-entity entity
+                     (if type
+                         (put-alist 'type type
+                                    (put-alist 'subtype subtype
+                                               situation))
+                       situation)
+                     'mime-detect-content)))
 
 
 ;;; @ mail/news message