From: akr <akr>
Date: Mon, 21 Sep 1998 19:07:15 +0000 (+0000)
Subject: * mel.el: Use `broken-p' to check facility.
X-Git-Tag: doodle-1_10_0~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=24138394dd4e1acb3ac5f44d0446a2f8cc18663c;p=elisp%2Fflim.git

* mel.el: Use `broken-p' to check facility.
---

diff --git a/ChangeLog b/ChangeLog
index d4c67be..b86ee37 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-09-21  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* mel.el: Use `broken-p' to check facility.
+
+1998-09-21  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* 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)