Handle UNTERMINATED tokens in RFC822:TOKENS->STRING.

diff --git a/src/edwin/rfc822.scm b/src/edwin/rfc822.scm
index 68882b054ab796a1095b838f9047a961d7163634..14d5ceb6154aa49ade0c5ba91050f9356b8355bf 100644 (file)
--- 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)))))))