X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-parse.el;h=40d5f5fa3709f99ebc93c956613b9f48f691d353;hb=b77b17617ad6e2d752ffa07cc4232a54c6ebae81;hp=6b42232c22181888fc2f5aaa12b8f61e0eda0e4d;hpb=ac78557ec302b6e9158b28b531bcb51b332adfdd;p=elisp%2Ftm.git

diff --git a/tm-parse.el b/tm-parse.el
index 6b42232..40d5f5f 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.15 1996/10/28 08:44:12 morioka Exp $
+;; Version: $Id: tm-parse.el,v 7.16 1996/12/17 11:44:55 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia
 
 ;; This file is part of tm (Tools for MIME).
@@ -25,7 +25,7 @@
 
 ;;; Code:
 
-(require 'tl-822)
+(require 'std11)
 (require 'tl-misc)
 (require 'tm-def)
 
@@ -33,6 +33,16 @@
 ;;; @ field parser
 ;;;
 
+(defconst rfc822/quoted-pair-regexp "\\\\.")
+(defconst rfc822/qtext-regexp
+  (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
+(defconst rfc822/quoted-string-regexp
+  (concat "\""
+	  (regexp-*
+	   (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
+	   )
+	  "\""))
+
 (defconst mime/content-parameter-value-regexp
   (concat "\\("
 	  rfc822/quoted-string-regexp