(mime-type/subtype-string): New function (moved from

semi/mime-parse.el).

diff --git a/mime-def.el b/mime-def.el
index 779c984..8e40b08 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -99,6 +99,17 @@
          "][" quoted-printable-hex-chars "]"))
 
 
+;;; @ utility
+;;;
+
+(defsubst mime-type/subtype-string (type &optional subtype)
+  "Return type/subtype string from TYPE and SUBTYPE."
+  (if type
+      (if subtype
+         (format "%s/%s" type subtype)
+       (format "%s" type))))
+
+
 ;;; @ end
 ;;;