.

original commit: 080f41a325b14478977966dc259d7e075740dd3a
2002-03-05 00:12:05 +00:00 · 2002-03-05 00:12:05 +00:00 · f9b065678b
commit f9b065678b
parent a7b96ce7ff
1 changed files with 3 additions and 2 deletions
--- a/collects/net/mime-unit.ss
+++ b/collects/net/mime-unit.ss
@ -149,8 +149,9 @@
        (lambda (in)
          (let loop ((headers "") (ln (read-line in 'any)))
            (cond ((eof-object? ln)
-                   (raise (make-unexpected-termination
-                           "eof reached! while parsing headers")))
+		   ;; (raise (make-unexpected-termination "eof reached! while parsing headers"))
+		   (warning "premature eof while parsing headers")
+		   headers)
                  ((string=? ln "") headers)
                  (else
                   ;; Quoting rfc822: