about summary refs log tree commit diff
path: root/third_party/lisp/mime4cl/package.lisp
diff options
context:
space:
mode:
authorsterni <sternenseemann@systemli.org>2021-08-22T12·32+0200
committersterni <sternenseemann@systemli.org>2021-09-12T21·39+0000
commit7f31562acfc9a83e042a506bf7bdaca5de4e789a (patch)
tree1918ec4cf9c396f16f26b3ef06f502c3bb4f02d5 /third_party/lisp/mime4cl/package.lisp
parent62fa36c9c2ef79b9b2aefaec8eac71665de45847 (diff)
feat(3p/lisp/mime4cl): search for first (default) mime text part r/2853
Adds a simple generic function find-mime-text-part which returns the
first suitable text/* part in any MIME part it is given.

Has no meaningful alternatives handling at the moment: It will pick the
first text part and doesn't allow specifying a preference.

Change-Id: Id9b113b3ef3ca1a575ce8f3582a4f85e30edfb43
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3379
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
Diffstat (limited to '')
-rw-r--r--third_party/lisp/mime4cl/package.lisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/third_party/lisp/mime4cl/package.lisp b/third_party/lisp/mime4cl/package.lisp
index c1b94f21d7..a6e7e7d8ef 100644
--- a/third_party/lisp/mime4cl/package.lisp
+++ b/third_party/lisp/mime4cl/package.lisp
@@ -65,6 +65,7 @@
 	   #:mime=
 	   #:find-mime-part-by-path
 	   #:find-mime-part-by-id
+	   #:find-mime-text-part
 	   #:encode-mime-part
 	   #:encode-mime-body
 	   #:decode-quoted-printable-stream