update.

[elisp/flim.git] / mel-b-ccl.el

diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index fd84a78..d881240 100644 (file)
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -143,6 +143,8 @@ abcdefghijklmnopqrstuvwxyz\
 
 )
 
+(check-broken-facility ccl-cascading-read)
+
 (if-broken ccl-cascading-read
     (define-ccl-program mel-ccl-decode-b
       `(1
@@ -404,8 +406,7 @@ abcdefghijklmnopqrstuvwxyz\
   (defun base64-ccl-insert-encoded-file (filename)
     "Encode contents of file FILENAME to base64, and insert the result."
     (interactive (list (read-file-name "Insert encoded file: ")))
-    (let ((coding-system-for-read 'mel-ccl-base64-lf-rev))
-      (insert-file-contents filename)))
+    (insert-file-contents-as-coding-system 'mel-ccl-base64-lf-rev filename))
 
   (mel-define-method-function (mime-encode-string string (nil "base64"))
                              'base64-ccl-encode-string)
@@ -433,9 +434,7 @@ abcdefghijklmnopqrstuvwxyz\
   (interactive
     (list (region-beginning) (region-end)
           (read-file-name "Write decoded region to file: ")))
-  (let ((coding-system-for-write 'mel-ccl-b-rev)
-       jka-compr-compression-info-list)
-    (write-region start end filename)))
+  (write-region-as-coding-system 'mel-ccl-b-rev start end filename))
 
 (mel-define-method-function (mime-decode-string string (nil "base64"))
                            'base64-ccl-decode-string)