Sync mel-ccl.el with doodle-1_9_5.

diff --git a/ChangeLog b/ChangeLog
index 590c219..589d865 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-09-21  Tanaka Akira      <akr@jaist.ac.jp>
+
+       * mel-ccl.el:
+         - Require 'pccl instead of 'emu.
+         - Use `unless-broken' to check facility.
+
 1998-09-27  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * mel.el (mime-encoding-list): New user option (renamed from

diff --git a/mel-ccl.el b/mel-ccl.el
index 6b3085d..e50ad5f 100644 (file)
--- a/mel-ccl.el
+++ b/mel-ccl.el
@@ -27,7 +27,6 @@
 ;;; Code:
 
 (require 'ccl)
-(require 'emu)
 (require 'pccl)
 (require 'mime-def)
 
@@ -1174,8 +1173,7 @@ abcdefghijklmnopqrstuvwxyz\
 ;;; @ B
 ;;;
 
-(unless (and (boundp 'ccl-encoder-eof-block-is-broken)
-            ccl-encoder-eof-block-is-broken)
+(unless-broken ccl-execute-eof-block-on-encoding-some
 
   (defun base64-ccl-encode-string (string)
     "Encode STRING with base64 encoding."
@@ -1239,8 +1237,7 @@ abcdefghijklmnopqrstuvwxyz\
 ;;; @ quoted-printable
 ;;;
 
-(unless (and (boundp 'ccl-encoder-eof-block-is-broken)
-            ccl-encoder-eof-block-is-broken)
+(unless-broken ccl-execute-eof-block-on-encoding-some
 
   (defun quoted-printable-ccl-encode-string (string)
     "Encode STRING with quoted-printable encoding."