From 4ef8ee6f1e43a3a1b7f9710e8a2e069fcaaa637f Mon Sep 17 00:00:00 2001 From: sterni Date: Mon, 2 Dec 2024 18:31:31 +0100 Subject: refactor(3p/lisp/mime4cl): streamline MIME-MESSAGE dispatching Change-Id: I1fda161e6e128f1bb085a63dd39541894e397d64 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12856 Reviewed-by: sterni Autosubmit: sterni Tested-by: BuildkiteCI --- third_party/lisp/mime4cl/mime.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'third_party/lisp') 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) -- cgit 1.4.1