From 60fa7dade79b37a39535241abbb658b42b930906 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 4 Dec 1998 05:56:36 +0000 Subject: [PATCH] * 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. --- ChangeLog | 15 +++++++++++++++ mel-b-ccl.el | 9 ++++----- mel-q-ccl.el | 8 ++++---- 3 files changed, 23 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5f4e3cd..4ffb30d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,18 @@ +1998-12-04 Katsumi Yamaoka + + * 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 * 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")) -- 1.7.10.4