From 606d57fdfaecf602de0bb04a32ae6855887fdcf8 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 14 Dec 2000 06:26:11 +0000 Subject: [PATCH 1/1] (base64-ccl-insert-encoded-file): Don't use `insert-file-contents-as-coding-system'. (base64-ccl-write-decoded-region): Don't use `write-region-as-coding-system'. --- mel-b-ccl.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/mel-b-ccl.el b/mel-b-ccl.el index fa12483..7e31dfa 100644 --- a/mel-b-ccl.el +++ b/mel-b-ccl.el @@ -1,8 +1,8 @@ ;;; mel-b-ccl.el --- Base64 encoder/decoder using CCL. -;; Copyright (C) 1998,1999 Tanaka Akira +;; Copyright (C) 1998,1999,2000 Free Software Foundation, Inc. -;; Author: Tanaka Akira +;; Author: Tanaka Akira ;; Created: 1998/9/17 ;; Keywords: MIME, Base64 @@ -419,7 +419,9 @@ abcdefghijklmnopqrstuvwxyz\ (defun base64-ccl-insert-encoded-file (filename) "Encode contents of file FILENAME to base64, and insert the result." (interactive "*fInsert encoded file: ") - (insert-file-contents-as-coding-system 'mel-ccl-base64-lf-rev filename)) + (let ((coding-system-for-read 'mel-ccl-base64-lf-rev) + format-alist) + (insert-file-contents filename))) (mel-define-method-function (mime-encode-string string (nil "base64")) 'base64-ccl-encode-string) @@ -447,7 +449,9 @@ abcdefghijklmnopqrstuvwxyz\ (defun base64-ccl-write-decoded-region (start end filename) "Decode the region from START to END and write out to FILENAME." (interactive "*r\nFWrite decoded region to file: ") - (write-region-as-coding-system 'mel-ccl-b-rev start end filename)) + (let ((coding-system-for-write 'mel-ccl-b-rev) + jka-compr-compression-info-list jam-zcat-filename-list) + (write-region start end filename))) (mel-define-method-function (mime-decode-string string (nil "base64")) 'base64-ccl-decode-string) -- 1.7.10.4