From: morioka <morioka>
Date: Wed, 6 May 1998 10:57:54 +0000 (+0000)
Subject: (mime-type/subtype-string): New function (moved from
X-Git-Tag: flim-1_2_0~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dbad9650f5b63ad3cc15e9a1e14da9190600e24c;p=elisp%2Fflim.git

(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
--- 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
 ;;;