From: morioka <morioka>
Date: Sat, 10 Oct 1998 02:14:16 +0000 (+0000)
Subject: (base64-ccl-write-decoded-region): bind
X-Git-Tag: flim-1_10_3~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d00b0ef5a85c556803349f0b82cfb4e9fa2dbab7;p=elisp%2Fflim.git

(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
--- 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"))