* TESTPAT: Add 16 tests.

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

diff --git a/ew-quote.el b/ew-quote.el
index e95bfb0..fd66130 100644 (file)
--- a/ew-quote.el
+++ b/ew-quote.el
@@ -43,7 +43,7 @@
          (while tmp
            (setq str (car tmp)
                  start 0)
-           (while (string-match ew-encoded-word-regexp str start)
+           (while (string-match ew-encoded-word-regexp0 str start)
              (setq eword-start (match-beginning 0)
                    charset-start (match-beginning 1)
                    eword-end (match-end 0))
@@ -92,7 +92,7 @@
 
 (defun ew-quote-sole (str gen-type2)
   (let (result (start 0) charset-start quoting-end eword-end l)
-    (while (string-match ew-encoded-word-regexp str start)
+    (while (string-match ew-encoded-word-regexp0 str start)
       (setq charset-start (match-beginning 1)
            eword-end (match-end 0))
       (string-match ew-quoting-chars-regexp str charset-start)