Fixed a bug in smtp-data, that did not handle multiline input-ports correctly. Reported by RichardAlan.5112949@bloglines.com.
This commit is contained in:
parent
8afd6710ef
commit
78d29c9337
scheme/lib
|
@ -188,7 +188,7 @@
|
||||||
(if (not (eof-object? stuff))
|
(if (not (eof-object? stuff))
|
||||||
(begin
|
(begin
|
||||||
(write-data-line stuff p)
|
(write-data-line stuff p)
|
||||||
(newline))))))
|
(lp))))))
|
||||||
|
|
||||||
(else (error "Message must be string or input-port.")))
|
(else (error "Message must be string or input-port.")))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue