From: yamaoka <yamaoka>
Date: Fri, 4 Dec 1998 05:56:36 +0000 (+0000)
Subject: * mel-b-ccl.el (base64-ccl-insert-encoded-file): Use
X-Git-Tag: flim-1_12-199812041900
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=60fa7dade79b37a39535241abbb658b42b930906;p=elisp%2Fflim.git

* mel-b-ccl.el (base64-ccl-insert-encoded-file): Use
`insert-file-contents-as-specified-coding-system' instead of
`insert-file-contents'.
* mel-q-ccl.el (quoted-printable-ccl-insert-encoded-file): Likewise.

* mel-b-ccl.el (base64-ccl-write-decoded-region): Use
`write-region-as-specified-coding-system' instead of `write-region'.
* mel-q-ccl.el (quoted-printable-ccl-write-decoded-region): Likewise.
---

diff --git a/ChangeLog b/ChangeLog
index 5f4e3cd..4ffb30d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,18 @@
+1998-12-04  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* mel-b-ccl.el (base64-ccl-insert-encoded-file): Use
+	`insert-file-contents-as-specified-coding-system' instead of
+	`insert-file-contents'.
+	* mel-q-ccl.el (quoted-printable-ccl-insert-encoded-file):
+	Likewise.
+
+	* mel-b-ccl.el (base64-ccl-write-decoded-region): Use
+	`write-region-as-specified-coding-system' instead of
+	`write-region'.
+	* mel-q-ccl.el (quoted-printable-ccl-write-decoded-region):
+	Likewise.
+
+
 1998-12-02  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* FLIM: Version 1.12.1 (Nishinoky-Dò)-A released.
diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index e9e7f16..b58db78 100644
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -406,8 +406,8 @@ 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-specified-coding-system
+     filename 'mel-ccl-base64-lf-rev))
 
   (mel-define-method-function (mime-encode-string string (nil "base64"))
 			      'base64-ccl-encode-string)
@@ -435,9 +435,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)
-	jka-compr-compression-info-list)
-    (write-region start end filename)))
+  (write-region-as-specified-coding-system
+   start end filename 'mel-ccl-b-rev))
 
 (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 116994e..062922b 100644
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -918,8 +918,8 @@ abcdefghijklmnopqrstuvwxyz\
   (defun quoted-printable-ccl-insert-encoded-file (filename)
     "Encode contents of the file named as FILENAME, and insert it."
     (interactive (list (read-file-name "Insert encoded file: ")))
-    (let ((coding-system-for-read 'mel-ccl-quoted-printable-lf-lf-rev))
-      (insert-file-contents filename)))
+    (insert-file-contents-as-specified-coding-system
+     filename 'mel-ccl-quoted-printable-lf-lf-rev))
 
   (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: ")))
-  (let ((coding-system-for-write 'mel-ccl-quoted-printable-lf-lf-rev))
-    (write-region start end filename)))
+  (write-region-as-specified-coding-system
+   start end filename 'mel-ccl-quoted-printable-lf-lf-rev))
 
 (mel-define-method-function
  (mime-decode-string string (nil "quoted-printable"))