X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel-b-ccl.el;h=d8812405ecd4122bfb916c70c8928f559f5ff99f;hb=aed6aa477c5a7e378482cef3da0ef973fa25506d;hp=e986d4324ed29cb7014443d93237c1bc22b9ddee;hpb=a685a26284746387460c6d938f36ffe56fcabbc7;p=elisp%2Fflim.git

diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index e986d43..d881240 100644
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -406,7 +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: ")))
-    (insert-file-contents-as-coding-system filename 'mel-ccl-base64-lf-rev))
+    (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)
@@ -434,7 +434,7 @@ abcdefghijklmnopqrstuvwxyz\
   (interactive
     (list (region-beginning) (region-end)
           (read-file-name "Write decoded region to file: ")))
-  (write-region-as-coding-system start end filename 'mel-ccl-b-rev))
+  (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)