From d00b0ef5a85c556803349f0b82cfb4e9fa2dbab7 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 10 Oct 1998 02:14:16 +0000 Subject: [PATCH] (base64-ccl-write-decoded-region): bind `jka-compr-compression-info-list' with nil. --- mel-ccl.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/mel-ccl.el b/mel-ccl.el index 655439c..12b18e1 100644 --- 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")) -- 1.7.10.4