From 9eed426824ef1376d2b157751ea8cefc62179289 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 14 Dec 1998 07:23:20 +0000
Subject: [PATCH] * mel-b-ccl.el (base64-ccl-insert-encoded-file): Call
 `insert-file-contents-as-coding-system' with CODING-SYSTEM
 as the 1st arg. * mel-q-ccl.el
 (quoted-printable-ccl-insert-encoded-file): Likewise.

* mel-b-ccl.el (base64-ccl-write-decoded-region): Call
`write-region-as-coding-system' with CODING-SYSTEM as the 1st arg.
* mel-q-ccl.el (quoted-printable-ccl-write-decoded-region): Likewise.
---
 ChangeLog    |   13 +++++++++++++
 mel-b-ccl.el |    4 ++--
 mel-q-ccl.el |    6 +++---
 3 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f682047..4b2ac99 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,18 @@
 1998-12-14  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* mel-b-ccl.el (base64-ccl-insert-encoded-file): Call
+	`insert-file-contents-as-coding-system' with CODING-SYSTEM as the
+	1st arg.
+	* mel-q-ccl.el (quoted-printable-ccl-insert-encoded-file):
+	Likewise.
+
+	* mel-b-ccl.el (base64-ccl-write-decoded-region): Call
+	`write-region-as-coding-system' with CODING-SYSTEM as the 1st arg.
+	* mel-q-ccl.el (quoted-printable-ccl-write-decoded-region):
+	Likewise.
+
+1998-12-14  Katsumi Yamaoka <yamaoka@jpl.org>
+
 	* mel-b-ccl.el (base64-ccl-insert-encoded-file): Use
 	`insert-file-contents-as-coding-system' (renamed from
 	`insert-file-contents-as-specified-coding-system').
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)
diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index d648602..7ad5a0d 100644
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -919,7 +919,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 +950,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"))
-- 
1.7.10.4