From 24138394dd4e1acb3ac5f44d0446a2f8cc18663c Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 21 Sep 1998 19:07:15 +0000 Subject: [PATCH] * mel.el: Use `broken-p' to check facility. --- ChangeLog | 4 ++++ mel.el | 16 +++++++--------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index d4c67be..b86ee37 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 1998-09-21 Tanaka Akira + * mel.el: Use `broken-p' to check facility. + +1998-09-21 Tanaka Akira + * mel-ccl.el: - Require 'pccl instead of 'emu. - Use `unless-broken' to check facility. diff --git a/mel.el b/mel.el index f095f53..a0cbaf7 100644 --- a/mel.el +++ b/mel.el @@ -26,7 +26,7 @@ ;;; Code: -(require 'emu) +(require 'pccl) ;;; @ encoder/decoder selection framework @@ -293,15 +293,13 @@ If MODE is nil, the result is appropriate for phrase.") (mel-usemodule "mel-ccl" quoted-printable ccl (fboundp 'make-ccl-coding-system)) (mel-usemodule "mel-ccl" q-encoding ccl (fboundp 'make-ccl-coding-system)) -(defvar ccl-encoder-eof-block-is-broken nil) +(mel-defmethod base64-encode-string ccl (not (broken-p 'ccl-execute-eof-block-on-encoding-some))) +(mel-defmethod base64-encode-region ccl (not (broken-p 'ccl-execute-eof-block-on-encoding-some))) +(mel-defmethod base64-insert-encoded-file ccl (not (broken-p 'ccl-execute-eof-block-on-encoding-some))) -(mel-defmethod base64-encode-string ccl (not ccl-encoder-eof-block-is-broken)) -(mel-defmethod base64-encode-region ccl (not ccl-encoder-eof-block-is-broken)) -(mel-defmethod base64-insert-encoded-file ccl (not ccl-encoder-eof-block-is-broken)) - -(mel-defmethod quoted-printable-encode-string ccl (not ccl-encoder-eof-block-is-broken)) -(mel-defmethod quoted-printable-encode-region ccl (not ccl-encoder-eof-block-is-broken)) -(mel-defmethod quoted-printable-insert-encoded-file ccl (not ccl-encoder-eof-block-is-broken)) +(mel-defmethod quoted-printable-encode-string ccl (not (broken-p 'ccl-execute-eof-block-on-encoding-some))) +(mel-defmethod quoted-printable-encode-region ccl (not (broken-p 'ccl-execute-eof-block-on-encoding-some))) +(mel-defmethod quoted-printable-insert-encoded-file ccl (not (broken-p 'ccl-execute-eof-block-on-encoding-some))) (mel-defmethod base64-decode-string ccl) (mel-defmethod base64-decode-region ccl) -- 1.7.10.4