diff options
| author | sterni <sternenseemann@systemli.org> | 2024-12-02T17·31+0100 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2024-12-02T18·08+0000 |
| commit | 4ef8ee6f1e43a3a1b7f9710e8a2e069fcaaa637f (patch) | |
| tree | f63ba39fddda5e7c903f33aad1f92ddd6d85c603 | |
| parent | e761311c46e8de1f5bb86389951527f7867c3d30 (diff) | |
refactor(3p/lisp/mime4cl): streamline MIME-MESSAGE dispatching r/8973
Change-Id: I1fda161e6e128f1bb085a63dd39541894e397d64 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12856 Reviewed-by: sterni <sternenseemann@systemli.org> Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI
| -rw-r--r-- | third_party/lisp/mime4cl/mime.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp index 788251c374de..b3c10d79764a 100644 --- a/third_party/lisp/mime4cl/mime.lisp +++ b/third_party/lisp/mime4cl/mime.lisp @@ -761,12 +761,12 @@ returns a MIME-MESSAGE object." (with-open-file (in msg :element-type '(unsigned-byte 8)) (mime-message in))) +(defmethod mime-message ((msg stream)) + (mime-message (make-flexi-stream msg))) + (defmethod mime-message ((msg flexi-stream)) (read-mime-message msg)) -(defmethod mime-message ((msg stream)) - (read-mime-message (make-flexi-stream msg))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defgeneric mime-part (object) |