X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ew-bq.el;h=ec0e8fe0a80e76b754d697d4914a2bd888d6fc34;hb=3c07ee018fb2fa3178e4eef483aee0326a2a52a6;hp=467918ae4201018f63da32fc6e01732dda8db75b;hpb=0db601d537205194d1c797ac39e6c20cd47ac0f2;p=elisp%2Fflim.git

diff --git a/ew-bq.el b/ew-bq.el
index 467918a..ec0e8fe 100644
--- a/ew-bq.el
+++ b/ew-bq.el
@@ -1,25 +1,14 @@
 (require 'emu)
 (require 'mel)
 
-(defvar ew-bq-use-mel (not (fboundp 'make-ccl-coding-system)))
+(defun ew-decode-q (string)
+  (if (equal string "")
+    ""
+    (encoded-text-decode-string string "Q")))
 
-(cond
- (ew-bq-use-mel
-  (defalias 'ew-decode-q 'q-encoding-decode-string)
-  (defalias 'ew-decode-b 'base64-decode-string))
- (t
-  (require 'ew-ccl)
-  (defun ew-decode-q (str)
-    (string-as-unibyte (decode-coding-string str 'ew-ccl-uq)))
-  (if 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))))))
+(defun ew-decode-b (string)
+  (if (equal string "")
+    ""
+    (encoded-text-decode-string string "B")))
 
 (provide 'ew-bq)
-
-;;;
-(defvar ew-bq-use-mel nil)
-
-(defun ew-encode-uq (str)
-  (encode-coding-string (string-as-unibyte str) 'ew-ccl-uq))