From 208e25243cfa14c8068236c919a82886cdd23e3d Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 5 Oct 1995 13:22:22 +0000
Subject: [PATCH] =?utf8?q?=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=20rfc822/line?=
 =?utf8?q?ar-white-space-regexp,=20rfc822/quoted-pair-regexp,=20rfc822/qtext?=
 =?utf8?q?-regexp,=20rfc822/quoted-string-regexp=20=EF=BF=BD=EF=BF=BD=EF=BF=BD?=
 =?utf8?q?=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF=BF=BD=EF?=
 =?utf8?q?=BF=BD=EF=BF=BD?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 tl-822.el |   25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

diff --git a/tl-822.el b/tl-822.el
index 62c0924..1952c83 100644
--- a/tl-822.el
+++ b/tl-822.el
@@ -4,15 +4,19 @@
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
 ;;; Copyright (C) 1995 MORIOKA Tomohiko
 ;;;
-;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; Version:
-;;;	$Id: tl-822.el,v 3.0 1995-10-05 12:09:52 morioka Exp $
+;;; Author:   MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Keywords: mail, news, RFC 822
 ;;;
 ;;; This file is part of tm (Tools for MIME).
 ;;;
 
 (require 'tl-seq)
+(require 'tl-str)
+
+
+(defconst rfc822/RCS-ID
+  "$Id: tl-822.el,v 4.0 1995-10-05 13:22:22 morioka Exp $")
+(defconst rfc822/version (get-version-string rfc822/RCS-ID))
 
 
 ;;; @ field
@@ -53,9 +57,22 @@
 	))))
 
 
-;;; @ quoted-string
+;;; @ quoting
 ;;;
 
+(defconst rfc822/linear-white-space-regexp "\\(\n?[ \t]\\)+")
+(defconst rfc822/quoted-pair-regexp "\\\\.")
+(defconst rfc822/qtext-regexp "[^\"\\\n\t \t]")
+(defconst rfc822/quoted-string-regexp
+  (concat "\""
+	  (regexp-*
+	   (concat
+	    "\\(" rfc822/linear-white-space-regexp "?"
+	    (regexp-or rfc822/qtext-regexp rfc822/quoted-pair-regexp)
+	    "\\)"))
+	  rfc822/linear-white-space-regexp "?"
+	  "\""))
+
 (defun rfc822/strip-quoted-pair (str)
   (let ((dest "")
 	(i 0)
-- 
1.7.10.4