From 7bde81554fe869b6ca3fb5fd2a3dbc6c04c1f8f7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jun 2000 20:06:38 +0000
Subject: [PATCH] Fix two bugs in LIST-PARSER.

---
 v7/src/imail/parser.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/imail/parser.scm b/v7/src/imail/parser.scm
index 55d47f8a0..b6254bf08 100644
--- a/v7/src/imail/parser.scm
+++ b/v7/src/imail/parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: parser.scm,v 1.3 2000/04/23 03:04:02 cph Exp $
+;;; $Id: parser.scm,v 1.4 2000/06/01 20:06:38 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -97,12 +97,12 @@
 	       (elements (list (substring string start index))))
 	    (let ((index (match-delimiter string start end)))
 	      (if index
-		  (let ((index* (match-element string start end)))
+		  (let ((index* (match-element string index end)))
 		    (if index*
 			(loop index*
 			      (cons (substring string index index*) elements))
-			(list start (cons keyword elements))))
-		  (list start (cons keyword elements)))))
+			(list start (cons keyword (reverse! elements)))))
+		  (list start (cons keyword (reverse! elements))))))
 	  (list start (list keyword))))))
 
 (define (optional-parser . parsers)
-- 
2.25.1