update.

[elisp/semi.git] / mime-play.el

diff --git a/mime-play.el b/mime-play.el
index 1310df2..41f7fca 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -30,6 +30,8 @@
 (require 'alist)
 (require 'filename)
 
+(eval-when-compile (require 'mime-text))
+
   
 ;;; @ content decoder
 ;;;
@@ -98,7 +100,8 @@ specified, play as it.  Default MODE is \"play\"."
             )
            (t
             (mime-show-echo-buffer
-             "No method are specified for %s\n" ctype)
+             "No method are specified for %s\n"
+             (mime-type/subtype-string c-type c-subtype))
             ))
       )
     ))
@@ -263,7 +266,7 @@ window.")
            (narrow-to-region beg end)
            (mime-raw-get-filename cal)
            ))
-        (encoding (cdr (assq 'encoding cal)))
+        (encoding (or (cdr (assq 'encoding cal)) "7bit"))
         (filename
           (if (and name (not (string-equal name "")))
              (expand-file-name name
@@ -282,7 +285,7 @@ window.")
         (or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
             (error "")))
     (re-search-forward "\n\n")
-    (mime-write-decoded-region (match-end 0)(point-max) filename encoding)
+    (mime-write-decoded-region (match-end 0) end filename encoding)
     ))