X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=mime-parse.el;h=ac77bffc5c9b95072da310a9db983bcb0b50144a;hb=d962f1a76b51bd942853adc61612e30f4ff7cb6e;hp=493bbcb59943f553b04729fcabf870ac4f5e3b0d;hpb=5c69dbd56a8479ff1bd7c9561692fa6527ba2a13;p=elisp%2Fsemi.git

diff --git a/mime-parse.el b/mime-parse.el
index 493bbcb..ac77bff 100644
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -45,6 +45,9 @@ which are string or symbol."
 (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) "]"))