(regexp-*): New inline-function; copied from tl-str.el.

diff --git a/mime-parse.el b/mime-parse.el
index bbd1d8f..45447cc 100644 (file)
--- a/mime-parse.el
+++ b/mime-parse.el
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1994,1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: mime-parse.el,v 0.3 1997-02-24 09:12:12 tmorioka Exp $
-;; Keywords: MIME, multimedia, mail, news
+;; Version: $Id: mime-parse.el,v 0.4 1997-02-27 13:36:22 tmorioka Exp $
+;; Keywords: parse, MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
 
@@ -62,6 +62,9 @@
 ;;; @ field parser
 ;;;
 
+(defsubst regexp-* (regexp)
+  (concat regexp "*"))
+
 (defconst rfc822/quoted-pair-regexp "\\\\.")
 (defconst rfc822/qtext-regexp
   (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))