Commit 088ca376 authored by Max Rottenkolber's avatar Max Rottenkolber
Browse files

Use SEARCH to find encoded words insteaf of POSITION.

parent e7c25e03
......@@ -96,7 +96,7 @@
(loop for start = 0 then (if (crlfsp-p string to (+ to 3))
(+ to 3)
to)
for from = (position #\= string :start start)
for from = (search "=?" string :start2 start)
for to = (when from (decoded-word-to string from))
do (write-string (subseq string start from) out)
when from
......
......@@ -55,4 +55,4 @@
for result = (decode* encoded)
do (ensure (string= decoded result)
:report "expected ~A, got ~A"
:arguments (decoded result))))
\ No newline at end of file
:arguments (decoded result))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment