From: shuhei <shuhei>
Date: Mon, 9 Apr 2001 12:20:20 +0000 (+0000)
Subject: (mime-lexical-analyze) [comment(^^;]: Would infloop.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2f6bf55dd6f9cbf3e4107c52ce296c7c2a3651b0;p=elisp%2Fflim.git

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

diff --git a/mime-parse.el b/mime-parse.el
index 6543ef2..6715d24 100644
--- 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)