(mime-show-echo-buffer): Bind `buffer-read-only' to nil, while insert

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

diff --git a/mime-play.el b/mime-play.el
index 9f9a40f..70fb849 100644 (file)
--- a/mime-play.el
+++ b/mime-play.el
@@ -240,6 +240,7 @@ It decodes the entity to call internal or external method.  The method
 is selected from variable `mime-acting-condition'.  If MODE is
 specified, play as it.  Default MODE is \"play\"."
   (let (method ret)
+    (in-calist-package 'mime-view)
     (setq ret
          (mime-delq-null-situation
           (ctree-find-calist mime-acting-condition
@@ -416,8 +417,9 @@ this function is called."
        ))
     (goto-char (setq start (point-max)))
     (if forms
-       (insert (apply (function format) forms))
-      )
+       (let ((buffer-read-only nil))
+         (insert (apply (function format) forms))
+         ))
     (prog1
        (list win start (point))
       (select-window the-win)