From 87254b6ca25d7c1c014516fceb2ece132f050aa6 Mon Sep 17 00:00:00 2001
From: james anderson <james@dydra.com>
Date: Fri, 19 Jan 2018 08:00:04 +0100
Subject: [PATCH] replace '*' with '*/*' to handle clients which cannot do any
 better

---
 mime/mime.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/mime/mime.lisp b/mime/mime.lisp
index 02cfa8d..e6cb454 100644
--- a/mime/mime.lisp
+++ b/mime/mime.lisp
@@ -505,6 +505,7 @@
           (let ((*read-eval* nil)
                 (*package* (find-package :keyword)))
             (destructuring-bind (type-name . parameters) (split-string designator ";")
+              (when (equal type-name "*") (setf type-name "*/*"))
               (setf parameters (loop for parameter in parameters
                                  append (destructuring-bind (attribute value) (split-string parameter "=")
                                           ;; ensure exactly two constituents