;; B : token.
;; C : encoded-text.
-(defconst ew-quoting-char ?+)
-(defconst ew-quoting-chars-regexp
- (concat (regexp-quote (char-to-string ew-quoting-char)) "*"))
-
-(defconst ew-type2-regexp
- (concat (regexp-quote "=?")
- "\\(" ew-token-regexp "\\)"
- (regexp-quote "?")
- "\\(" ew-token-regexp "\\)"
- (regexp-quote "?")
- "\\(" ew-encoded-text-regexp "\\)"
- (regexp-quote "?")
- "\\'"))
-
;;;
(defun ew-quoting-char-seq (num)