From: morioka <morioka>
Date: Wed, 11 Mar 1998 17:24:49 +0000 (+0000)
Subject: (mime-write-decoded-region): fixed.
X-Git-Tag: mel-7_2~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=02d97e5e57028daa7b064b7079aa924f882b3545;p=elisp%2Fflim.git

(mime-write-decoded-region): fixed.
---

diff --git a/mel.el b/mel.el
index a34d7e6..11cb389 100644
--- a/mel.el
+++ b/mel.el
@@ -236,11 +236,12 @@ FUNCTION is function to write decoded region to file.")
 (defun mime-write-decoded-region (start end filename encoding)
   "Decode and write current region encoded by ENCODING into FILENAME.
 START and END are buffer positions."
-  (list (region-beginning) (region-end)
-	(read-file-name "Write decoded region to file: ")
-	(completing-read "encoding: "
-			 mime-file-decoding-method-alist
-			 nil t "base64"))
+  (interactive
+   (list (region-beginning) (region-end)
+	 (read-file-name "Write decoded region to file: ")
+	 (completing-read "encoding: "
+			  mime-file-decoding-method-alist
+			  nil t "base64")))
   (let ((f (cdr (assoc encoding mime-file-decoding-method-alist))))
     (if f
 	(funcall f start end filename)