MEL 6.10.1.

diff --git a/mel-u.el b/mel-u.el
index 0fab184..fda849f 100644 (file)
--- 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)
+            )
           ))
       )))