From: morioka <morioka>
Date: Sun, 11 Jan 1998 17:22:45 +0000 (+0000)
Subject: MEL 6.10.1.
X-Git-Tag: mel-6_10_1~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=commitdiff_plain;h=29c99d4d25875784e45b274690dc6bf463ab864b

MEL 6.10.1.
---

diff --git a/mel-u.el b/mel-u.el
index 0fab184..fda849f 100644
--- a/mel-u.el
+++ b/mel-u.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/10/25
-;; Version: $Id: mel-u.el,v 5.7 1997/03/10 15:15:09 morioka Exp $
+;; Version: $Id: mel-u.el,v 5.10 1997/07/14 21:47:48 morioka Exp $
 ;; Keywords: uuencode
 
 ;; This file is part of MEL (MIME Encoding Library).
@@ -84,7 +84,14 @@ variable `uuencode-external-decoder'."
 		  t nil nil (cdr uuencode-external-decoder))
 	   (setq filename (expand-file-name filename mime-temp-directory))
 	   (as-binary-input-file (insert-file-contents filename))
-	   (delete-file filename)
+	   ;; The previous line causes the buffer to be made read-only, I
+	   ;; do not pretend to understand the control flow leading to this
+	   ;; but suspect it has something to do with image-mode. -slb
+	   ;;	Use `inhibit-read-only' to avoid to force
+	   ;;	buffer-read-only nil. - tomo.
+	   (let ((inhibit-read-only t))
+	     (delete-file filename)
+	     )
 	   ))
       )))