* FLIM-ELS (flim-modules): Add `ew-var' and reorder.

[elisp/flim.git] / ew-quote.el

diff --git a/ew-quote.el b/ew-quote.el
index 66806b2..ad7c034 100644 (file)
--- a/ew-quote.el
+++ b/ew-quote.el
@@ -1,5 +1,6 @@
 ;;; quoted encoded word library
 
+(require 'ew-var)
 (require 'ew-util)
 (require 'ew-line)
 (provide 'ew-quote)
@@ -18,21 +19,9 @@
 ;; C : encoded-text.
 
 (defconst ew-quoting-char ?+)
-(defconst ew-quoting-char-singleton (list ew-quoting-char))
 (defconst ew-quoting-chars-regexp
   (concat (regexp-quote (char-to-string ew-quoting-char)) "*"))
 
-(defconst ew-token-regexp "[-!#-'*+0-9A-Z^-~]+")
-(defconst ew-encoded-text-regexp "[!->@-~]+")
-(defconst ew-encoded-word-regexp
-  (concat (regexp-quote "=?")
-          "\\(" ew-token-regexp "\\)"
-          (regexp-quote "?")
-          "\\(" ew-token-regexp "\\)"
-          (regexp-quote "?")
-          "\\(" ew-encoded-text-regexp "\\)"
-          (regexp-quote "?=")))
-
 (defconst ew-type2-regexp
   (concat (regexp-quote "=?")
           "\\(" ew-token-regexp "\\)"
@@ -196,4 +185,4 @@
 (ew-quote-concat "a=?+A?B?C?=?+D?E?F?" '("=?+US-ASCII?Q?z?=")) ;"a=?+++A?B?C?=?+D?E?F?=?+US-ASCII?Q?z?="
 (ew-quote-concat "a=?+A?B?C?=?+D?E?F?=?+G?H?I?" '("=?+US-ASCII?Q?z?=")) ;"a=?+++A?B?C?=?+D?E?F?=?+++++G?H?I?==?+US-ASCII?Q?z?="
 (ew-quote-concat '("a=?++A?B?C?==?+++A?B?C?=c")) ;"a=?A?B?C?=?+A?B?C?=c"
-)
\ No newline at end of file
+)