;; 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).
;;; Code:
-(require 'tl-822)
+(require 'std11)
(require 'tl-misc)
(require 'tm-def)
;;; @ 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