X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-parse.el;h=6b42232c22181888fc2f5aaa12b8f61e0eda0e4d;hb=51eca80d7e4d7c1dbe7bfffa8ba883a777177d2f;hp=e5a390fc7274c7657d76a4fa4e8cc70e4f4ee2e7;hpb=327711693e20cc80cb741d6c97d2c1ae3f383a70;p=elisp%2Ftm.git

diff --git a/tm-parse.el b/tm-parse.el
index e5a390f..6b42232 100644
--- a/tm-parse.el
+++ b/tm-parse.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: tm-parse.el,v 7.13 1996/09/20 07:27:41 morioka Exp $
+;; Version: $Id: tm-parse.el,v 7.15 1996/10/28 08:44:12 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia
 
 ;; This file is part of tm (Tools for MIME).
@@ -19,13 +19,13 @@
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with this program; see the file COPYING.  If not, write to
-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
 ;;; Code:
 
-(require 'std11)
+(require 'tl-822)
 (require 'tl-misc)
 (require 'tm-def)
 
@@ -33,6 +33,11 @@
 ;;; @ field parser
 ;;;
 
+(defconst mime/content-parameter-value-regexp
+  (concat "\\("
+	  rfc822/quoted-string-regexp
+	  "\\|[^; \t\n]*\\)"))
+
 (defconst mime::parameter-regexp
   (concat "^[ \t]*\;[ \t]*\\(" mime/token-regexp "\\)"
 	  "[ \t]*=[ \t]*\\(" mime/content-parameter-value-regexp "\\)"))