diff options
Diffstat (limited to 'third_party/lisp/mime4cl/mime.lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/mime.lisp | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp index 3cdac4b26b6f..e8d9d5e8b850 100644 --- a/third_party/lisp/mime4cl/mime.lisp +++ b/third_party/lisp/mime4cl/mime.lisp @@ -880,10 +880,7 @@ returns a MIME-MESSAGE object." do (write-char (code-char byte) out))) (pathname (with-open-file (in body) - (loop - for c = (read-char in nil) - while c - do (write-char c out))))))) + (redirect-stream in out)))))) (defmethod print-mime-part ((part mime-message) (out stream)) (flet ((hdr (name) |