From: akr <akr>
Date: Mon, 21 Sep 1998 18:52:21 +0000 (+0000)
Subject: * mel-ccl.el:
X-Git-Tag: doodle-1_9_5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=974025ad5345195cd9645d6c102713344fbcfdba;p=elisp%2Fflim.git

* 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
--- 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
--- a/DOODLE-VERSION
+++ b/DOODLE-VERSION
@@ -18,7 +18,7 @@ Order is not significant.
   12 $B??Hl(B	$B$^$R(B			10R6.0/11.0     FLAM-DOODLE 1.9.2
   13 $(DT`(B		$B$=$R(B			2.5YR7.0/11.0	FLAM-DOODLE 1.9.3
   14 $B3A(B		$B$+$-(B			10R6.5/10.0	FLAM-DOODLE 1.9.4
-  15 $B?<;Y;R(B	$B$3$-$/$A$J$7(B		10YR7.5/8.0
+  15 $B?<;Y;R(B	$B$3$-$/$A$J$7(B		10YR7.5/8.0	FLAM-DOODLE 1.9.5
   16 $B4;;R(B	$B$3$&$8(B			7.5YR7.0/11.0
   17 $B5`MU(B	$B$/$A$P(B			10YR7.5/10.0
   18 $B@VGrFK(B	$B$"$+$7$m$D$k$P$_(B	5.0YR8.0/6.0
diff --git a/mel-ccl.el b/mel-ccl.el
index 6ff0dc4..dc79e5a 100644
--- 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
--- a/mime-def.el
+++ b/mime-def.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (defconst mime-library-version
-  '("FLAM-DOODLE" "$B3A(B 10R6.5/10.0" 1 9 4)
+  '("FLAM-DOODLE" "$B?<;Y;R(B 10YR7.5/8.0" 1 9 5)
   "Implementation name, version name and numbers of MIME-library package.")
 
 (defconst mime-library-version-string