7 (defmacro ew-scan-unstructured (scan col str)
8 `(let ((res (ew-make-anchor col str))
21 (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
25 (ew-add-frag res r (- p 3) 'ew:us-texts)
29 (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
33 (ew-add-frag res r (- p 3) 'ew:us-texts)
37 (* (+ ?\r) [^ " \t\r\n"] (* [^ " \t\r"]))
41 (progn (setq p q) 'ew:*err*)))))
42 (ew-add-frag res r p type))
46 (defun ew-scan-unibyte-unstructured (col str)
47 (ew-scan-unstructured lex-scan-unibyte col str))
48 (defun ew-scan-multibyte-unstructured (col str)
49 (ew-scan-unstructured lex-scan-multibyte col str))
54 (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
56 (ew-scan-unibyte-unstructured
57 0 " Hello! =?US-ASCII?Q?Hello!?="))))
61 (lambda (frag) (cons (get frag 'type) (symbol-name frag)))
63 (ew-scan-unibyte-unstructured