From 02d97e5e57028daa7b064b7079aa924f882b3545 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 17:24:49 +0000 Subject: [PATCH] (mime-write-decoded-region): fixed. --- mel.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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) -- 1.7.10.4