mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(3p/lisp/mime4cl): support FILE-PORTION in PRINT-MIME-PART

Browse source 
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>
This commit is contained in:
sterni 2024-12-02 18:32:12 +01:00 committed by clbot
parent 3f95f58038
commit e761311c46
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
third_party/lisp/mime4cl/mime.lisp vendored
View file

@ -878,6 +878,8 @@ returns a MIME-MESSAGE object."
(loop (loop
for byte across body for byte across body
do (write-char (code-char byte) out))) do (write-char (code-char byte) out)))
(file-portion
(redirect-stream (open-decoded-file-portion body) out))
(pathname (pathname
(with-open-file (in body) (with-open-file (in body)
(redirect-stream in out)))))) (redirect-stream in out))))))