(base64-ccl-write-decoded-region): bind

`jka-compr-compression-info-list' with nil.

diff --git a/mel-ccl.el b/mel-ccl.el
index 655439c..12b18e1 100644 (file)
--- a/mel-ccl.el
+++ b/mel-ccl.el
@@ -1216,7 +1216,8 @@ abcdefghijklmnopqrstuvwxyz\
   (interactive
     (list (region-beginning) (region-end)
           (read-file-name "Write decoded region to file: ")))
-  (let ((coding-system-for-write 'mel-ccl-b-rev))
+  (let ((coding-system-for-write 'mel-ccl-b-rev)
+       jka-compr-compression-info-list)
     (write-region start end filename)))
 
 (mel-define-method-function (mime-decode-string string (nil "base64"))