update.

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

diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index d648602..dc84735 100644 (file)
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -248,6 +248,10 @@ abcdefghijklmnopqrstuvwxyz\
       ,succ
       ,fail-crlf))))
 
+)
+
+(eval-when-compile
+
 ;; Generated CCL program works not properly on 20.2 because CCL_EOF_BLOCK
 ;; is not executed.
 (defun mel-ccl-encode-quoted-printable-generic (input-crlf output-crlf)
@@ -919,7 +923,7 @@ abcdefghijklmnopqrstuvwxyz\
     "Encode contents of the file named as FILENAME, and insert it."
     (interactive (list (read-file-name "Insert encoded file: ")))
     (insert-file-contents-as-coding-system
-     filename 'mel-ccl-quoted-printable-lf-lf-rev))
+     'mel-ccl-quoted-printable-lf-lf-rev filename))
 
   (mel-define-method-function
    (mime-encode-string string (nil "quoted-printable"))
@@ -950,8 +954,8 @@ encoding."
   (interactive
    (list (region-beginning) (region-end)
          (read-file-name "Write decoded region to file: ")))
-  (write-region-as-coding-system start end filename
-                                'mel-ccl-quoted-printable-lf-lf-rev))
+  (write-region-as-coding-system 'mel-ccl-quoted-printable-lf-lf-rev
+                                start end filename))
 
 (mel-define-method-function
  (mime-decode-string string (nil "quoted-printable"))