From 2c0b71595758dc4d9158d03af4d542c591b1bfba Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 18 Sep 2009 17:12:45 -0400 Subject: [PATCH] Handle UNTERMINATED tokens in RFC822:TOKENS->STRING. --- src/edwin/rfc822.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/edwin/rfc822.scm b/src/edwin/rfc822.scm index 68882b054..14d5ceb61 100644 --- a/src/edwin/rfc822.scm +++ b/src/edwin/rfc822.scm @@ -315,6 +315,9 @@ USA. ((and (pair? (car tokens)) (eq? 'ILLEGAL (caar tokens))) (write-char (cdar tokens) port)) + ((and (pair? (car tokens)) + (eq? 'UNTERMINATED (caar tokens))) + (write-string (cdar tokens) port)) (else (error "Malformed RFC-822 token stream:" tokens))))))) -- 2.25.1