From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 18 Sep 2009 21:12:45 +0000 (-0400)
Subject: Handle UNTERMINATED tokens in RFC822:TOKENS->STRING.
X-Git-Tag: 20100708-Gtk~330^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c0b71595758dc4d9158d03af4d542c591b1bfba;p=mit-scheme.git

Handle UNTERMINATED tokens in RFC822:TOKENS->STRING.
---

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)))))))