diff options
| author | sterni <sternenseemann@systemli.org> | 2024-12-02T17·32+0100 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2024-12-02T18·08+0000 |
| commit | e761311c46e8de1f5bb86389951527f7867c3d30 (patch) | |
| tree | 6dbe82bb0eb51db2cb8901f1a2a1effd3b22c2d1 /third_party/lisp/mime4cl/mime.lisp | |
| parent | 3f95f58038a48382bee5e09bc7bfba2a17a12061 (diff) | |
fix(3p/lisp/mime4cl): support FILE-PORTION in PRINT-MIME-PART r/8972
Change-Id: I942e8915d5076628179dfa77bf80b7510b862b51 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12855 Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org>
Diffstat (limited to 'third_party/lisp/mime4cl/mime.lisp')
| -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)))))) |