From 4ea33dd248a570fe2fd7dfc13b87b1a05b590f9a Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 14 Dec 2000 06:30:42 +0000 Subject: [PATCH] (quoted-printable-ccl-insert-encoded-file): Don't use `insert-file-contents-as-coding-system'. (quoted-printable-ccl-write-decoded-region): Don't use `write-region-as-coding-system'. --- mel-q-ccl.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/mel-q-ccl.el b/mel-q-ccl.el index c71fab6..cb54a56 100644 --- a/mel-q-ccl.el +++ b/mel-q-ccl.el @@ -898,8 +898,9 @@ abcdefghijklmnopqrstuvwxyz\ (defun quoted-printable-ccl-insert-encoded-file (filename) "Encode contents of the file named as FILENAME, and insert it." (interactive "*fInsert encoded file: ") - (insert-file-contents-as-coding-system - 'mel-ccl-quoted-printable-lf-lf-rev filename)) + (let ((coding-system-for-read 'mel-ccl-quoted-printable-lf-lf-rev) + format-alist) + (insert-file-contents filename))) (mel-define-method-function (mime-encode-string string (nil "quoted-printable")) @@ -927,8 +928,9 @@ encoding." (defun quoted-printable-ccl-write-decoded-region (start end filename) "Decode quoted-printable encoded current region and write out to FILENAME." (interactive "*r\nFWrite decoded region to file: ") - (write-region-as-coding-system 'mel-ccl-quoted-printable-lf-lf-rev - start end filename)) + (let ((coding-system-for-write 'mel-ccl-quoted-printable-lf-lf-rev) + jka-compr-compression-info-list jam-zcat-filename-list) + (write-region start end filename))) (mel-define-method-function (mime-decode-string string (nil "quoted-printable")) -- 1.7.10.4