From: akr <akr>
Date: Mon, 24 Aug 1998 10:16:05 +0000 (+0000)
Subject: * DOODLE-TIPS: Add a notice about ew-ccl-b.
X-Git-Tag: doodle-1_9_2~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c0dc6a51ddec374a36d9ca4a8c5fa41b6c889bb0;p=elisp%2Fflim.git

* DOODLE-TIPS: Add a notice about ew-ccl-b.

* ew-bq.el (ew-bq-use-mel): New variable.
(ew-decode-q): Use `q-encoding-decode-string' if `ew-bq-use-mel' is non-nil.
(ew-encode-b): Use `base64-encode-string' if `ew-bq-use-mel' is non-nil.
(ew-decode-b): Use `base64-decode-string' if `ew-bq-use-mel' is non-nil.
---

diff --git a/ChangeLog b/ChangeLog
index e20e1aa..b884bde 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 1998-08-24  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* DOODLE-TIPS: Add a notice about ew-ccl-b.
+
+	* ew-bq.el (ew-bq-use-mel): New variable.
+	(ew-decode-q): Use `q-encoding-decode-string' if `ew-bq-use-mel' is non-nil.
+	(ew-encode-b): Use `base64-encode-string' if `ew-bq-use-mel' is non-nil.
+	(ew-decode-b): Use `base64-decode-string' if `ew-bq-use-mel' is non-nil.
+
+1998-08-24  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* ew-bq.el (ew-ccl-qp-table): New constant.
 	(ew-ccl-encode-quoted-printable): New CCL program.
 
diff --git a/DOODLE-TIPS b/DOODLE-TIPS
index 4491261..9d79f95 100644
--- a/DOODLE-TIPS
+++ b/DOODLE-TIPS
@@ -26,3 +26,6 @@ field name information.
        (eword-decode-unstructured-field-body (std11-unfold-string string) 'must-unfold))))
 
 * Ignore warnings about args-eword-* when byte-compiling.
+
+* If you have a problem with ew-ccl-b or other CCL based coding-system, set ew-bq-use-mel to t.
+
diff --git a/ew-bq.el b/ew-bq.el
index d2ae4df..07a2f16 100644
--- a/ew-bq.el
+++ b/ew-bq.el
@@ -668,6 +668,8 @@
 )
 
 ;;;
+(require 'mel)
+(defvar ew-bq-use-mel nil)
 
 (defun ew-encode-uq (str)
   (encode-coding-string (string-as-unibyte str) 'ew-ccl-uq))
@@ -678,16 +680,17 @@
 (defun ew-encode-pq (str)
   (encode-coding-string (string-as-unibyte str) 'ew-ccl-pq))
 
-(defun ew-decode-q (str)
-  (string-as-unibyte (decode-coding-string str 'ew-ccl-uq)))
+(if ew-bq-use-mel
+    (defalias 'ew-decode-q 'q-encoding-decode-string)
+  (defun ew-decode-q (str)
+    (string-as-unibyte (decode-coding-string str 'ew-ccl-uq))))
 
-(require 'mel)
-(if (or base64-dl-module ew-ccl-encode-b-is-broken)
+(if (or ew-bq-use-mel base64-dl-module ew-ccl-encode-b-is-broken)
     (defalias 'ew-encode-b 'base64-encode-string)
   (defun ew-encode-b (str)
     (encode-coding-string (string-as-unibyte str) 'ew-ccl-b)))
 
-(if base64-dl-module
+(if (or ew-bq-use-mel base64-dl-module)
     (defalias 'ew-decode-b 'base64-decode-string)
   (defun ew-decode-b (str)
     (string-as-unibyte (decode-coding-string str 'ew-ccl-b))))