ew-bq.el

   1 (require 'emu)
   2 (require 'mel)
   3
   4 (defvar ew-bq-use-mel (not (fboundp 'make-ccl-coding-system)))
   5
   6 (cond
   7  (ew-bq-use-mel
   8   (defalias 'ew-decode-q 'q-encoding-decode-string)
   9   (defalias 'ew-decode-b 'base64-decode-string))
  10  (t
  11   (require 'ew-ccl)
  12   (defun ew-decode-q (str)
  13     (string-as-unibyte (decode-coding-string str 'ew-ccl-uq)))
  14   (if base64-dl-module
  15       (defalias 'ew-decode-b 'base64-decode-string)
  16     (defun ew-decode-b (str)
  17       (string-as-unibyte (decode-coding-string str 'ew-ccl-b))))))
  18
  19 (provide 'ew-bq)
  20
  21 ;;;
  22 (defvar ew-bq-use-mel nil)
  23
  24 (defun ew-encode-uq (str)
  25   (encode-coding-string (string-as-unibyte str) 'ew-ccl-uq))