From: keiichi <keiichi>
Date: Mon, 31 May 1999 00:33:21 +0000 (+0000)
Subject: (mime-show-echo-buffer): Bind `buffer-read-only' to nil, while insert
X-Git-Tag: semi-1_13_5~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=33beba8b472799bef82f5bdf9f021e07f0377c30;p=elisp%2Fsemi.git

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

diff --git a/mime-play.el b/mime-play.el
index bb5ee15..af3d851 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -407,8 +407,9 @@ window.")
     (select-window win)
     (goto-char (point-max))
     (if forms
-	(insert (apply (function format) forms))
-      )
+	(let ((buffer-read-only nil))
+	  (insert (apply (function format) forms))
+	  ))
     (select-window the-win)
     ))