* mel-ccl.el:

  - Require 'pccl instead of 'emu.
  - Use `unless-broken' to check facility.

* mime-def.el (mime-library-version): Bump up to FLAM-DOODLE
1.9.5.

diff --git a/ChangeLog b/ChangeLog
index 0037058..d4c67be 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+1998-09-21  Tanaka Akira      <akr@jaist.ac.jp>
+
+       * mel-ccl.el:
+         - Require 'pccl instead of 'emu.
+         - Use `unless-broken' to check facility.
+
+       * mime-def.el (mime-library-version): Bump up to FLAM-DOODLE
+       1.9.5.
+
 1998-09-19  Tanaka Akira      <akr@jaist.ac.jp>
 
        * mel-ccl.el (q-encoding-ccl-encoded-length): Check

diff --git a/DOODLE-VERSION b/DOODLE-VERSION
index f6572cf..d986b15 100644 (file)
--- a/DOODLE-VERSION
+++ b/DOODLE-VERSION
@@ -18,7 +18,7 @@ Order is not significant.
   12 \e$B??Hl\e(B        \e$B$^$R\e(B                      10R6.0/11.0     FLAM-DOODLE 1.9.2
   13 \e$(DT`\e(B         \e$B$=$R\e(B                      2.5YR7.0/11.0   FLAM-DOODLE 1.9.3
   14 \e$B3A\e(B          \e$B$+$-\e(B                      10R6.5/10.0     FLAM-DOODLE 1.9.4
-  15 \e$B?<;Y;R\e(B      \e$B$3$-$/$A$J$7\e(B              10YR7.5/8.0
+  15 \e$B?<;Y;R\e(B      \e$B$3$-$/$A$J$7\e(B              10YR7.5/8.0     FLAM-DOODLE 1.9.5
   16 \e$B4;;R\e(B        \e$B$3$&$8\e(B                    7.5YR7.0/11.0
   17 \e$B5`MU\e(B        \e$B$/$A$P\e(B                    10YR7.5/10.0
   18 \e$B@VGrFK\e(B      \e$B$"$+$7$m$D$k$P$_\e(B  5.0YR8.0/6.0

diff --git a/mel-ccl.el b/mel-ccl.el
index 6ff0dc4..dc79e5a 100644 (file)
--- a/mel-ccl.el
+++ b/mel-ccl.el
@@ -24,7 +24,7 @@
 ;; Boston, MA 02111-1307, USA.
 
 (require 'ccl)
-(require 'emu)
+(require 'pccl)
 
 
 ;;; @ constants
@@ -1169,8 +1169,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."
@@ -1210,8 +1209,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."

diff --git a/mime-def.el b/mime-def.el
index 0f695dd..d879bcd 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (defconst mime-library-version
-  '("FLAM-DOODLE" "\e$B3A\e(B 10R6.5/10.0" 1 9 4)
+  '("FLAM-DOODLE" "\e$B?<;Y;R\e(B 10YR7.5/8.0" 1 9 5)
   "Implementation name, version name and numbers of MIME-library package.")
 
 (defconst mime-library-version-string