* ew-bq.el (ew-ccl-encode-uq): Change BUFFER_MAGNIFICATION to 3.

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

diff --git a/ew-var.el b/ew-var.el
index 936a680..9ac619b 100644 (file)
--- a/ew-var.el
+++ b/ew-var.el
@@ -8,6 +8,8 @@
 (defvar ew-ignore-76bytes-limit nil)
 (defvar ew-permit-sticked-comment nil)
 (defvar ew-permit-sticked-special nil)
+
+(defvar ew-remove-bare-crlf nil)
 (defvar ew-default-mime-charset 'x-ctext)
 
 ;;;
@@ -51,16 +53,19 @@
 
 ;;; constants.
 
-(defconst ew-token-regexp "[-!#-'*+0-9A-Z^-~]+")
-(defconst ew-encoded-text-regexp "[!->@-~]+")
+(eval-and-compile
+  (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 "?=")))
+  (eval-when-compile
+    (concat (regexp-quote "=?")
+            "\\(" ew-token-regexp "\\)"
+            (regexp-quote "?")
+            "\\(" ew-token-regexp "\\)"
+            (regexp-quote "?")
+            "\\(" ew-encoded-text-regexp "\\)"
+            (regexp-quote "?="))))
 
 ;;; utilities for variables.
 
@@ -73,4 +78,6 @@
     (if ew-ignore-75bytes-limit 4 0)
     (if ew-ignore-76bytes-limit 8 0)
     (if ew-permit-sticked-comment 16 0)
-    (if ew-permit-sticked-special 32 0))))
+    (if ew-permit-sticked-special 32 0)
+    (if ew-remove-bare-crlf 64 0)
+    )))