(mime-lexical-analyze) [comment(^^;]: Would infloop.

diff --git a/mime-parse.el b/mime-parse.el
index 6543ef2..6715d24 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -116,6 +116,13 @@ be the result."
 ;;;          dest (cons (cons 'mime-token
 ;;;                           (substring string start pos))
 ;;;                     dest)
+;;;          start pos))
+;;;        ;; error
+;;;        (t
+;;;    (setq pos len
+;;;          dest (cons (cons 'error
+;;;                           (substring string start pos))
+;;;                     dest)
 ;;;          start pos))))
 ;;;     (nreverse dest)))
 (defun mime-lexical-analyze (string)