diff options
Diffstat (limited to 'third_party/lisp/mime4cl')
| -rw-r--r-- | third_party/lisp/mime4cl/mime.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp index e8d9d5e8b850..788251c374de 100644 --- a/third_party/lisp/mime4cl/mime.lisp +++ b/third_party/lisp/mime4cl/mime.lisp @@ -878,6 +878,8 @@ returns a MIME-MESSAGE object." (loop for byte across body do (write-char (code-char byte) out))) + (file-portion + (redirect-stream (open-decoded-file-portion body) out)) (pathname (with-open-file (in body) (redirect-stream in out)))))) |