From: keiichi <keiichi>
Date: Mon, 31 May 1999 00:31:30 +0000 (+0000)
Subject: (mime-show-echo-buffer): Bind `buffer-read-only' to nil, while insert
X-Git-Tag: semi-pgpgpg_18~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=87f9da5ad9f12399be631ecd6a3ad389fb4fd325;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 28dcedb..70fb849 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -417,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)