(defsubst regexp-* (regexp)
(concat regexp "*"))
+(defsubst regexp-or (&rest args)
+ (concat "\\(" (mapconcat (function identity) args "\\|") "\\)"))
+
(defconst rfc822/quoted-pair-regexp "\\\\.")
(defconst rfc822/qtext-regexp
(concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
(defsubst mime-entity-encoding (entity-info) (aref entity-info 6))
(defsubst mime-entity-children (entity-info) (aref entity-info 7))
-(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))))
-
(defsubst mime-entity-type/subtype (entity-info)
(mime-type/subtype-string (mime-entity-media-type entity-info)
(mime-entity-media-subtype entity-info)))