From c23631522d02392faa2c6ff16e8351d808146fa5 Mon Sep 17 00:00:00 2001
From: akr <akr>
Date: Sun, 19 Jul 1998 14:13:10 +0000
Subject: [PATCH] * (TESTPAT): add quoted-encoded-word description and test.

---
 ChangeLog |    4 ++
 TESTPAT   |  159 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++----
 2 files changed, 154 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a6e8ccc..78d2da7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1998-07-19  Tanaka Akira  <akr@jaist.ac.jp>
+
+	* (TESTPAT): add quoted-encoded-word description and test.
+
 1998-07-18  Tanaka Akira  <akr@jaist.ac.jp>
 
 	* (TESTPAT): add test result by FLIM-FLAM.
diff --git a/TESTPAT b/TESTPAT
index 5df90d1..5205d2d 100644
--- a/TESTPAT
+++ b/TESTPAT
@@ -11,6 +11,7 @@
 ;separate-sticked-comment               ; violate policy preserving absence of space
 ;separate-sticked-special               ; violate policy preserving absence of space
 ;zero-characters-encoded-word-hack      ; violate common sense (very tricky)
+;quoted-encoded-word			; violate character sequence semantics
 
 ;;; test driver for FLIM-FLAM (and FLIM)
 
@@ -45,6 +46,8 @@
     (let ((result (buffer-substring (point-min) (point))))
       (if (member result dsts) t result))))
 
+;;;start-test;;;
+
 ;;; from RFC2047
 
 (decode
@@ -531,15 +534,6 @@
 "Subject: =?ISO-2022-JP?B??=")
 
 (decode
-"Subject: =?ISO-2022-JP?B?DQoNCg==?="
-"Subject: ")
-
-(decode
-"Subject: =?US-ASCII?Q?a=0D=0A_b?="
-"Subject: a b")
-; FLIM-FLAM
-
-(decode
 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a
  =?ISO-2022-JP?B?GyRCJCQbKEI=?="
 "Subject: $B$"(B a $B$$(B")
@@ -649,4 +643,151 @@
 "Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 "Subject: .FNC$B4X?t(B")*B
 
+(decode
+"Subject: =?Shift_JIS?B?gqA=?="
+"Subject: $B$"(B"
+'quoted-encoded-word)
+
+(decode
+"Subject: =?EUC-JP?B?pKI=?="
+"Subject: $B$"(B"
+'quoted-encoded-word)
+
+;;; quoted-encoded-word $BI=8=(B
+; 
+; RFC2047 $B$N%G%3!<%@$O@x:_E*$K(B($B%G%3!<%I7k2L$G$J$/(B) encoded-word $B$=$N$b$N$r(B
+; $B=PNO$7$J$1$l$P$J$i$J$$$3$H$,$"$k!#(B
+;
+; 1. $BCN$i$J$$(B charset $B$b$7$/$O(B encoding $B$,;XDj$5$l$F$$$?$H$-!#(B
+;  =?unknown-charset?known-encoding?some-encoded-text?=
+;  =?known-charset?unknown-encoding?some-encoded-text?=
+;  =?unknown-charset?unknown-encoding?some-encoded-text?=
+;
+; 2. $B%G%3!<%I$G$-$F$bFbMF$,7uF]$9$.$k$H$-!#(B
+;  Non ASCII $B3HD%(B RFC822 $B$NCf$K(B =?US-ASCII?Q?=0D=0A=0D=0A?= $B$N%G%3!<%I(B
+; $B7k2L$rKd$a9~$`$N$O4m81$9$.$k!#(B
+;
+; $B$^$?!"%G%3!<%@$O(B encoded-word $B$N$h$&$K$_$($k%G%3!<%I7k2L$r=PNO$7$J$1(B
+; $B$l$P$J$i$J$$$3$H$b$"$k!#(B
+;
+;  =?US-ASCII?Q?=3D=3FUS-ASCII=3FQ=3Ftext=3F=3D?=
+;
+; $B%G%3!<%@$,C1$J$kJ8;zNs$r=PNO$9$k>l9g!"C1=c$K$d$k$H(B encoded-word $B$=$N$b$N$H(B
+; encoded-word $B$r6hJL$G$-$J$$!#(B
+; $B$3$3$G$OJ8;zNsCf$G$=$l$i$r3N<B$K6hJL$7$FI=8=$9$kJ}K!$r<($9!#(B
+;
+; rule 1: $BJ8;zNsCf$G(B =?charset?encoding?text?= $B$H$$$&%Q%?!<%s$K(B
+;  $B%^%C%A$7$J$$ItJ,$O$=$NItJ,$N$^$^$NFbMF$rI=$9!#(B
+; 
+; rule 2: $BJ8;zNsCf$G(B =?charset?encoding?text?= $B$H$$$&%Q%?!<%s$K(B
+;  $B%^%C%A$9$kItJ,$O(B charset $B$N@hF,$K(B '*' $B$,$$$/$DIU$$$F$$$k$+$GFbMF$N(B
+;  $B2r<a$rJQ$($k!#(B
+;
+;  $B6v?t$N>l9g(B(0, 2, 4, ...): charset $B$N@hF,$N(B '*' $B$N?t$rH>J,$K$7$?J8;zNs(B
+;  $B4q?t$N>l9g(B(1, 3, 5, ...): charset $B$N@hF,$N(B '*' $B$N?t$rH>J,(B($B>.?tE@0J2<(B
+;   $B@Z<N$F(B)$B$K$7$F!"$=$l$r(B encoded-word $B$H;W$C$F%G%3!<%I$7$?J8;zNs!#(B
+;
+; NOTE: '*' $B$r(B quoted-encoded-word $BI=8=$N(B quote $BJ8;z$H8F$V!#(B
+;
+; NOTE: $B8=;~E@$G(B IANA $B$N%l%8%9%H%j$K$O(B '*' $B$r4^$`(B charset $B$O(B
+;  $BEPO?$5$l$F$$$J$$$N$G!"EPO?$5$l$F$$$k(B charset $B$r;H$C$?(B encoded-word $B$r(B
+;  $BI=8=$9$k$K$O(B '*' $B$r(B 1$B$D$D$1$k$3$H$K$J$k!#(B
+;
+;  =?US-ASCII?Q?abcdef?= $B$H$$$&(Bencoded-word : =?*US-ASCII?Q?abcdef?=
+;
+;  =?US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B	    : =?US-ASCII?Q?abcdef?=
+;  =?*US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B	    : =?**US-ASCII?Q?abcdef?=
+;  =?**US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B     : =?****US-ASCII?Q?abcdef?=
+;  =?***US-ASCII?Q?abcdef?= $B$H$$$&J8;zNs(B    : =?******US-ASCII?Q?abcdef?=
+;
+; rule 3: $BJ8;zNsA4BN$NFbMF$O!"(Brule 1 $B$H(B rule 2 $B$G2r<a$7$?3FItJ,$N(B
+;   $BJ8;zNs$rC1=c$KO"7k$7$?J8;zNs$H$9$k!#(B
+;
+; NOTE: RFC2047 $B$G$O(B encoded-word $B$,6uGr$G6h@Z$i$l$J$1$l$P$J$i$J$$$H$+!"(B
+;  encoded-word $B$,4^$^$l$k9T$O(B 76bytes $B0J2<$G$J$1$l$P$J$i$J$$$J$I$H$$$&(B
+;  $B5,Ls$,$"$k$,!"(Bquoted-encoded-word $BI=8=$G$O$=$l$i$O:NMQ$7$J$$!#(B
+;  $BC1=c$K(B encoded-word $BFbIt$NJ8K!$@$1$rMxMQ$9$k!#(B
+;  ($BK\<AE*$K$O0[$J$kJ8K!$r:NMQ$9$k$3$H$b2DG=$G$"$k!#(B)
+;
+; NOTE: quoted-encoded-word $BI=8=$7$?J8;zNs$NO"7k$O0BA4$G$O$J$$!#(B
+;  =?*US-ASCII?Q?ab $B$H(B cd?= $B$H$$$&(B quoted-encoded-word $BI=8=$7$?J8;zNs$O(B
+;  $B$=$l$>$l$=$NJ8;zNs$=$N$b$N$rI=8=$9$k$,!"$=$l$i$rO"7k$7$?J8;zNs(B
+;  =?*US-ASCII?Q?abcd?= $B$O(B abcd $B$H$$$&J8;zNs$rI=8=$9$k$3$H$K$J$j!"(B
+;  $B$=$l$>$l$NFbMF$NO"7k$H$O$J$i$J$$!#(B
+;
+;  $B$3$l$O$H$/$K(B Non ASCII $B3HD%(B RFC822 $B$NCf$K(B quoted-encoded-word $BI=8=$r(B
+;  $BKd$a9~$`$H$-$K5$$rIU$1$J$1$l$P$J$i$J$$!#(B($BKd$a9~$s$@7k2L$O@5$7$$(B
+;  quoted-encoded-word $BI=8=$H$O$J$i$J$$$+$bCN$l$J$$!#(B)
+;
+
+(decode
+"Subject: =?Unknown-Charset?B?gqA=?="
+"Subject: =?*Unknown-Charset?B?gqA=?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?Unknown-Charset?B?gqA=?= =?Unknown-Charset?B?gqA=?="
+"Subject: =?*Unknown-Charset?B?gqA=?==?*Unknown-Charset?B?gqA=?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?Unknown-Charset?B?gqA=?=  =?Unknown-Charset?B?gqA=?="
+"Subject: =?*Unknown-Charset?B?gqA=?==?*Unknown-Charset?B?gqA=?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?Unknown-Charset?B?gqA=?=
+ =?Unknown-Charset?B?gqA=?="
+"Subject: =?*Unknown-Charset?B?gqA=?==?*Unknown-Charset?B?gqA=?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?Unknown-Charset?B?gqA=?=
+	=?Unknown-Charset?B?gqA=?="
+"Subject: =?*Unknown-Charset?B?gqA=?==?*Unknown-Charset?B?gqA=?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: a=?Unknown-Charset?B?gqA=?="
+"Subject: a=?Unknown-Charset?B?gqA=?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?Unknown-Charset?B?gqA=?=b"
+"Subject: =?Unknown-Charset?B?gqA=?=b"
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: a=?Unknown-Charset?B?gqA=?=b"
+"Subject: a=?Unknown-Charset?B?gqA=?=b"
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: a =?Unknown-Charset?B?gqA=?= b"
+"Subject: a =?*Unknown-Charset?B?gqA=?= b"
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?ISO-2022-JP?B?DQoNCg==?="
+"Subject: =?*US-ASCII?Q?=0D=0A=0D=0A?="
+'quoted-encoded-word)
+; FLIM-FLAM
+
+(decode
+"Subject: =?US-ASCII?Q?a=0D=0A_b?="
+"Subject: a=?*US-ASCII?Q?=0D=0A?= b"
+'quoted-encoded-word)
+; FLIM-FLAM
+
+;;;end-test;;;
+
 ;----------------------------------------------------------------------------
-- 
1.7.10.4