TESTPAT

   1 ;;; -*- mode: emacs-lisp; coding: iso-2022-7bit-ss2 -*-
   2 ;----------------------------------------------------------------------------
   3 ;-------- This sequece of HYPHEN-MINUS is 76 bytes long. --------------------
   4 ;----------------------------------------------------------------------------
   5
   6 ;;; options:
   7 ;;encode-sticked-comment-as-atom    ; violate the policy preserving structures
   8 ;;ignore-75bytes-limit              ; violate RFC2047
   9 ;;ignore-76bytes-limit              ; violate RFC2047
  10 ;;permit-sticked-comment            ; violate RFC2047
  11 ;;permit-sticked-special            ; violate RFC2047
  12 ;;separate-sticked-comment          ; violate the policy preserving absence of space
  13 ;;separate-sticked-special          ; violate the policy preserving absence of space
  14 ;;zero-characters-encoded-word-hack ; violate common sense (very tricky)
  15 ;;embedded-encoded-word             ; violate character sequence semantics
  16 ;;separate-sticked-tokens-for-fold  ; violate the policy preserving absence of space
  17 ;;encode-long-ascii-string-for-fold ; violate the policy preserving US-ASCII string
  18 ;;divide-atom-for-fold              ; violate tne policy preserving absence of space
  19
  20 (defconst test-patterns '(
  21
  22 ;;; Section 1: Decoding examples from RFC2047
  23
  24 (decode
  25 "From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>"
  26 "From: Keith Moore <moore@cs.utk.edu>")
  27
  28 (decode
  29 "To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>"
  30 "To: Keld J\e.A\eNxrn Simonsen <keld@dkuug.dk>")\e*B
  31
  32 (decode
  33 "CC: =?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>"
  34 "CC: Andr\e.A\eNi Pirard <PIRARD@vm1.ulg.ac.be>")\e*B
  35
  36 (decode
  37 "Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=\r
  38  =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?="
  39 "Subject: If you can read this you understand the example.")
  40
  41 (decode
  42 "From: =?ISO-8859-1?Q?Olle_J=E4rnefors?= <ojarnef@admin.kth.se>"
  43 "From: Olle J\e.A\eNdrnefors <ojarnef@admin.kth.se>")\e*B
  44
  45 (decode
  46 "From: =?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@nada.kth.se>"
  47 "From: Patrik F\e.A\eNdltstr\eNvm <paf@nada.kth.se>")\e*B
  48
  49 (decode
  50 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>\r
  51 \t(=?iso-8859-8?b?7eXs+SDv4SDp7Oj08A==?=)"
  52 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>\t(\e.H\eNm\eNe\eNl\eNy \eNo\eNa \eNi\eNl\eNh\eNt\eNp)")\e*B
  53
  54 (decode
  55 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=)"
  56 "From: foo@bar.baz (a)")
  57
  58 (decode
  59 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= b)"
  60 "From: foo@bar.baz (a b)")
  61
  62 (decode
  63 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
  64 "From: foo@bar.baz (ab)")
  65
  66 (decode
  67 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
  68 "From: foo@bar.baz (ab)")
  69
  70 (decode
  71 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=\r
  72 \t=?ISO-8859-1?Q?b?=)"
  73 "From: foo@bar.baz (ab)")
  74
  75 (decode
  76 "From: foo@bar.baz (=?ISO-8859-1?Q?a_b?=)"
  77 "From: foo@bar.baz (a b)")
  78
  79 (decode
  80 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
  81 "From: foo@bar.baz (a b)")
  82
  83 (decode
  84 "Subject: (=?ISO-8859-1?Q?a?=)"
  85 "Subject: (=?ISO-8859-1?Q?a?=)")
  86
  87 (decode
  88 "Subject: (=?ISO-8859-1?Q?a?= b)"
  89 "Subject: (=?ISO-8859-1?Q?a?= b)")
  90
  91 (decode
  92 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
  93 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)")
  94
  95 (decode
  96 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
  97 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)")
  98
  99 (decode
 100 "Subject: (=?ISO-8859-1?Q?a?=\r
 101 \t=?ISO-8859-1?Q?b?=)"
 102 "Subject: (=?ISO-8859-1?Q?a?=\t=?ISO-8859-1?Q?b?=)")
 103
 104 (decode
 105 "Subject: (=?ISO-8859-1?Q?a_b?=)"
 106 "Subject: (=?ISO-8859-1?Q?a_b?=)")
 107
 108 (decode
 109 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 110 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)")
 111
 112 ;;; Section 2: Decoding proper inputs.
 113
 114 (decode
 115 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 116 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 117
 118 (decode
 119 "From: =?ISO-2022-JP?b?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 120 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 121
 122 (decode
 123 "From: =?iso-2022-jp?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 124 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 125
 126 (decode
 127 "From: =?iSo-2022-jP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 128 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 129
 130 (decode
 131 "From: =?ISO-2022-JP?Q?=1B=24B=24=22=1B=28B?= <akr@jaist.ac.jp>"
 132 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 133
 134 (decode
 135 "From: =?ISO-2022-JP?q?=1B=24B=24=22=1B=28B?= <akr@jaist.ac.jp>"
 136 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 137
 138 (decode
 139 "From: =?iso-2022-jp?Q?=1B=24B=24=22=1B=28B?= <akr@jaist.ac.jp>"
 140 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 141
 142 (decode
 143 "From: =?iSo-2022-jP?Q?=1B=24B=24=22=1B=28B?= <akr@jaist.ac.jp>"
 144 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 145
 146 (decode
 147 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 148  <akr@jaist.ac.jp>"
 149 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 150
 151 (decode
 152 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 153  =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 154  <akr@jaist.ac.jp>"
 155 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 156
 157 (decode
 158 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 159 \t=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 160  <akr@jaist.ac.jp>"
 161 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 162
 163 (decode
 164 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"ja \\\"a\\\"\" <akr@jaist.ac.jp>"
 165 "From: \e$B$"\e(B \"ja \\\"a\\\"\" <akr@jaist.ac.jp>")
 166
 167 (decode
 168 "From: =?US-ASCII?Q?=2C?= <akr@jaist.ac.jp>"
 169 "From: \",\" <akr@jaist.ac.jp>")
 170
 171 (decode
 172 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?US-ASCII?Q?=2E?= <akr@jaist.ac.jp>"
 173 "From: \"\e$B$"\e(B.\" <akr@jaist.ac.jp>")
 174
 175 (decode
 176 "From: =?US-ASCII?Q?=2E?= =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 177 "From: \".\e$B$"\e(B\" <akr@jaist.ac.jp>")
 178
 179 (decode
 180 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 181  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 182  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 183 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)")
 184
 185 (decode
 186 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 187 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 188
 189 (decode
 190 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 191 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 192
 193 (decode
 194 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 195 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 196
 197 (decode
 198 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>"
 199 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>")
 200
 201 (decode
 202 "From: \"\\\"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\\\"\\\\\" <akr@jaist.ac.jp>"
 203 "From: \"\\\"\\\\\" \e$B$"\e(B \"\\\"\\\\\" <akr@jaist.ac.jp>")
 204
 205 (decode
 206 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>"
 207 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>")
 208
 209 (decode
 210 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>"
 211 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>")
 212
 213 (decode
 214 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)"
 215 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)")
 216
 217 (decode
 218 "From: =?US-ASCII?Q?=22?= <akr@jaist.ac.jp>"
 219 "From: \"\\\"\" <akr@jaist.ac.jp>")
 220
 221 (decode
 222 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
 223 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>")
 224
 225 (decode
 226 "From: =?US-ASCII?Q?=28?= <akr@jaist.ac.jp>, =?US-ASCII?Q?=29?= <akr@jaist.ac.jp>"
 227 "From: \"(\" <akr@jaist.ac.jp>, \")\" <akr@jaist.ac.jp>"
 228 ignore-76bytes-limit)
 229
 230 (decode
 231 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= <akr@jaist.ac.jp>"
 232 "From: \"a\\\"b\e$B$"\e(Bc\\\\\" <akr@jaist.ac.jp>")
 233
 234 (decode
 235 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 236 "Subject: \e$B$"\e(B")
 237
 238 (decode
 239 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 240 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 241
 242 (decode
 243 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 244 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 245
 246 (decode
 247 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 248 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 249
 250 (decode
 251 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 252 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 253
 254 (decode
 255 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 256 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 257
 258 (decode
 259 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 260 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 261
 262 (decode
 263 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 264 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 265
 266 (decode
 267 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 268 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 269
 270 (decode
 271 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 272 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 273
 274 (decode
 275 "Subject: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\""
 276 "Subject: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"")
 277
 278 (decode
 279 "Subject: \" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \""
 280 "Subject: \" \e$B$"\e(B \"")
 281
 282 (decode
 283 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 284 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 285
 286 (decode
 287 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:"
 288 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:")
 289
 290 (decode
 291 "Subject: =?ISO-2022-JP?B??="
 292 "Subject: =?ISO-2022-JP?B??=")
 293
 294 (decode
 295 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a\r
 296  =?ISO-2022-JP?B?GyRCJCQbKEI=?="
 297 "Subject: \e$B$"\e(B a \e$B$$\e(B")
 298
 299 (decode
 300 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=\r
 301  =?US-ASCII?Q?____________________________________________________________?=\r
 302  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?="
 303 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B")
 304
 305 (decode
 306 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>"
 307 "From: \"abcdefghijklmnopqrst\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>")\e*B
 308
 309 (decode
 310 "Subject: ?= =?"
 311 "Subject: ?= =?")
 312
 313 (decode
 314 "Subject: \" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \""
 315 "Subject: \" \e$B$"\e(B \"")
 316
 317 (decode
 318 "From: \"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\" <akr@jaist.ac.jp>"
 319 "From: \"\\\\\" \e$B$"\e(B \"\" <akr@jaist.ac.jp>")
 320
 321 (decode
 322 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B_=1B$B$\"=1B(B?="
 323 "Subject: \e$B$"\e(B \e$B$"\e(B")
 324
 325 (decode
 326 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?="
 327 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?=")
 328
 329 (decode
 330 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?="
 331 "Subject: \e$B$"\e(B a \e.H\eN`")\e*B
 332
 333 (decode
 334 "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 335 "Subject: \e.H\eN`\e$BNm\e(B")\e*B
 336
 337 (decode
 338 "Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 339 "Subject: \e.H\eN` \e$BNm\e(B")\e*B
 340
 341 (decode
 342 "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="
 343 "Subject: \e.F\eNC\e$B4X?t\e(B")\e*B
 344
 345 (decode
 346 "Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 347 "Subject: \e.F\eNC\e$B4X?t\e(B")\e*B
 348
 349 (decode
 350 "Subject: =?Shift_JIS?B?gqA=?="
 351 "Subject: \e$B$"\e(B")
 352
 353 (decode
 354 "Subject: =?EUC-JP?B?pKI=?="
 355 "Subject: \e$B$"\e(B")
 356
 357 (decode
 358 "Subject: = =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 359 "Subject: = \e$B$"\e(B")
 360
 361 (decode
 362 "Subject: =? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 363 "Subject: =? \e$B$"\e(B")
 364
 365 (decode
 366 "Subject: =?ISO-2022-JP =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 367 "Subject: =?ISO-2022-JP \e$B$"\e(B")
 368
 369 (decode
 370 "Subject: =?ISO-2022-JP? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 371 "Subject: =?ISO-2022-JP? \e$B$"\e(B")
 372
 373 (decode
 374 "Subject: =?ISO-2022-JP?B =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 375 "Subject: =?ISO-2022-JP?B \e$B$"\e(B")
 376
 377 (decode
 378 "Subject: =?ISO-2022-JP?B? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 379 "Subject: =?ISO-2022-JP?B? \e$B$"\e(B")
 380
 381 (decode
 382 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 383 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI \e$B$"\e(B")
 384
 385 (decode
 386 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 387 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI= \e$B$"\e(B")
 388
 389 (decode
 390 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 391 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=? \e$B$"\e(B")
 392
 393 (decode
 394 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 395 "Subject: \e$B$"$"\e(B")
 396
 397 (decode
 398 "Subject: ==?ISO-2022-JP?B?GyRCJCIbKEI=?="
 399 "Subject: ==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 400
 401 (decode
 402 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=="
 403 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==")
 404
 405 (decode
 406 "From: akr@jaist.ac.jp (\\=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 407 "From: akr@jaist.ac.jp (\\=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 408
 409 (decode
 410 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
 411 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test")
 412
 413 (decode
 414 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
 415 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
 416 permit-sticked-special)
 417
 418 ;;; Section 3: Decoding melancholic inputs.
 419
 420 (decode
 421 "From:=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 422 "From:\e$B$"\e(B <akr@jaist.ac.jp>")
 423
 424 (decode
 425 "From: akr@jaist.ac.jp\r
 426  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\\a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 427 "From: akr@jaist.ac.jp (\e$B$"\e(B\\a\e$B$$\e(B)")
 428
 429 (decode
 430 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 431 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 432
 433 (decode
 434 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 435 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 436
 437 (decode
 438 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 439 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 440
 441 (decode
 442 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 443 "From: (a)\e$B$"\e(B <akr@jaist.ac.jp>"
 444 permit-sticked-comment)
 445
 446 (decode
 447 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 448 "From: \e$B$"\e(B(b) <akr@jaist.ac.jp>"
 449 permit-sticked-comment)
 450
 451 (decode
 452 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 453 "From: (a)\e$B$"\e(B(b) <akr@jaist.ac.jp>"
 454 permit-sticked-comment)
 455
 456 (decode
 457 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 458 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 459
 460 (decode
 461 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 462 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 463
 464 (decode
 465 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 466 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 467
 468 (decode
 469 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
 470  <akr@jaist.ac.jp>"
 471 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 472 permit-sticked-comment)
 473
 474 (decode
 475 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 476 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 477
 478 (decode
 479 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 480 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 481 permit-sticked-special)
 482
 483 (decode
 484 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 485 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 486
 487 (decode
 488 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 489 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 490 permit-sticked-special)
 491
 492 (decode
 493 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 494 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 495
 496 (decode
 497 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 498 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
 499 permit-sticked-special)
 500
 501 (decode
 502 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 503 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;")
 504
 505 (decode
 506 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 507 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 508 permit-sticked-special)
 509
 510 (decode
 511 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 512 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;")
 513
 514 (decode
 515 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 516 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 517 ignore-76bytes-limit permit-sticked-special)
 518
 519 (decode
 520 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
 521 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>")
 522
 523 (decode
 524 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
 525 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 526 ignore-76bytes-limit permit-sticked-special)
 527
 528 (decode
 529 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 530 "Subject:\e$B$"\e(B")
 531
 532 ;;; Section 4: Decoding invalid inputs.
 533
 534 (decode
 535 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 536  <akr@jaist.ac.jp>"
 537 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?= <akr@jaist.ac.jp>")
 538
 539 (decode
 540 "From: akr@jaist.ac.jp\r
 541  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 542 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)")
 543
 544 (decode
 545 "From: akr@jaist.ac.jp\r
 546  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 547 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)")
 548
 549 (decode
 550 "From: akr@jaist.ac.jp\r
 551  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 552 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 553 ignore-76bytes-limit)
 554
 555 (decode
 556 "Subject: =?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 557 "Subject: =?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 558
 559 (decode
 560 "Subject: =?ISO-2022-JP=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 561 "Subject: =?ISO-2022-JP=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 562
 563 (decode
 564 "Subject: =?ISO-2022-JP?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 565 "Subject: =?ISO-2022-JP?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 566
 567 (decode
 568 "Subject: =?ISO-2022-JP?B=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 569 "Subject: =?ISO-2022-JP?B=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 570
 571 (decode
 572 "Subject: =?ISO-2022-JP?B?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 573 "Subject: =?ISO-2022-JP?B?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 574
 575 (decode
 576 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 577 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 578
 579 (decode
 580 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI==?ISO-2022-JP?B?GyRCJCIbKEI=?="
 581 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 582
 583 (decode
 584 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 585 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 586
 587 (decode
 588 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCIbKEI=?="
 589 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 590
 591 (decode
 592 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI?="
 593 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI?=")
 594
 595 (decode
 596 "Subject: =?ISO-2022-JP?B?GyRCNFg-dBsoQg==?="
 597 "Subject: =?ISO-2022-JP?B?GyRCNFg-dBsoQg==?=")
 598
 599 (decode
 600 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 601 "Subject: \e$B$"\e(B=?=\e$B$"\e(B")
 602
 603 ;;; Section 5: Encoding proper inputs.
 604
 605 (encode
 606 "From: \e$B$"\e(B <akr@jaist.ac.jp>"
 607 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 608
 609 (encode
 610 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>"
 611 "From: =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?= <akr@jaist.ac.jp>")
 612
 613 (encode
 614 "From: \e$B$"\e(B \e$B$$\e(B <akr@jaist.ac.jp>"
 615 "From: =?ISO-2022-JP?B?GyRCJCIbKEIgGyRCJCQbKEI=?= <akr@jaist.ac.jp>")
 616
 617 (encode
 618 "From: \e.A\eN! \eN! <akr@jaist.ac.jp>"\e*B
 619 "From: =?ISO-8859-1?Q?=A1_=A1?= <akr@jaist.ac.jp>")
 620
 621 (encode
 622 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>"
 623 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>")
 624
 625 (encode
 626 "From: \e$B$"\e(B\"a\" <akr@jaist.ac.jp>"
 627 "From: =?ISO-2022-JP?B?GyRCJCIbKEJh?= <akr@jaist.ac.jp>")
 628
 629 (encode
 630 "From: \"a\"\e$B$"\e(B <akr@jaist.ac.jp>"
 631 "From: =?ISO-2022-JP?B?YRskQiQiGyhC?= <akr@jaist.ac.jp>")
 632
 633 (encode
 634 "From: \"a\\\"b\e$B$"\e(Bc\\\\\" <akr@jaist.ac.jp>"
 635 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= <akr@jaist.ac.jp>")
 636
 637 (encode
 638 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 639 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=\r
 640  =?US-ASCII?Q?____________________________________________________________?=\r
 641  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?=")
 642
 643 (encode
 644 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 645 "Subject: =?ISO-2022-JP?B?GyQpQrCkICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICDS3w=="
 646 ignore-76bytes-limit ignore-75bytes-limit)
 647
 648 (encode
 649 "From: \e.A\eN! <akr@jaist.ac.jp>"\e*B
 650 "From: =?ISO-8859-1?Q?=A1?= <akr@jaist.ac.jp>")
 651
 652 (encode
 653 "From: \"abcdefghijklmnopqrst\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>"\e*B
 654 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>")
 655
 656 (encode
 657 "From: akr@jaist.ac.jp (abcdefghijklmnopqrst\e.A\eN!\\(\\)\"\\\\)"\e*B
 658 "From: akr@jaist.ac.jp (=?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29\"=5C?=)")
 659
 660 (encode
 661 "Subject: \e$B$"\e(B a \e.H\eN`"\e*B
 662 ("Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?="
 663  "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?B?4A==?="))
 664
 665 (encode
 666 "Subject: \e.H\eN`\e$BNm\e(B"\e*B
 667 ("Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 668  "Subject: =?ISO-8859-8?B?4A==?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="))
 669
 670 (encode
 671 "Subject: \e.H\eN` \e$BNm\e(B"\e*B
 672 ("Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 673  "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?IBskQk5tGyhC?="
 674  "Subject: =?ISO-8859-8?B?4CA=?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 675  "Subject: =?ISO-8859-8?B?4A==?= =?ISO-2022-JP?B?IBskQk5tGyhC?="))
 676
 677 (encode
 678 "Subject: \e.F\eNC\e$B4X?t\e(B"\e*B
 679 ("Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 680  "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="))
 681
 682 (encode
 683 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 684 "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 685  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 686
 687 (encode
 688 "From: aaaaaaaaaaaaaaaaaaaaa (\e$B$"$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 689 ("From: aaaaaaaaaaaaaaaaaaaaa
 690  (=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 691  "From: aaaaaaaaaaaaaaaaaaaaa (=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 692  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"))
 693
 694 (encode
 695 "From: aaaaaaaaaaaaaaaaaaaaa( \e$B$"$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 696 ("From: aaaaaaaaaaaaaaaaaaaaa(
 697  =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 698  "From: aaaaaaaaaaaaaaaaaaaaa( =?ISO-2022-JP?B?GyRCJCIbKEI=?=
 699  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"))
 700
 701 (encode
 702 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"$$\e(B )aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 703 ("From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=
 704  )aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 705  "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 706  =?ISO-2022-JP?B?GyRCJCQbKEI=?= )aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"))
 707
 708 (encode
 709 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"$$\e(B) aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 710 "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)\r
 711  aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 712
 713 (encode
 714 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"\e(B \e$B$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 715 "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEIgCg==?=\r
 716  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 717
 718 (encode
 719 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 720 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 721
 722 (encode
 723 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 724 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaa\r
 725  <akr@jaist.ac.jp>")
 726
 727 (encode
 728 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 729 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 730  <akr@jaist.ac.jp>")
 731
 732 (encode
 733 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 734 "From:\r
 735  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 736  <akr@jaist.ac.jp>")
 737
 738 (encode
 739 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 740 "From:\r
 741  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 742  <akr@jaist.ac.jp>")
 743
 744 (encode
 745 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 746 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 747  =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 748  <akr@jaist.ac.jp>"
 749 zero-characters-encoded-word-hack)
 750
 751 (encode
 752 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 753 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 754  =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 755  <akr@jaist.ac.jp>"
 756 zero-characters-encoded-word-hack)
 757
 758 (encode
 759 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 760 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
 761  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 762 separate-sticked-tokens-for-fold)
 763
 764 (encode
 765 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 766 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaa?=\r
 767  =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?= <akr@jaist.ac.jp>"
 768 encode-long-ascii-string-for-fold permit-sticked-special)
 769
 770 (encode
 771 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 772 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 773  aaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 774 divide-atom-for-fold)
 775
 776 (encode
 777 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 778 ("From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 779  "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
 780  <akr@jaist.ac.jp>")
 781 ignore-76bytes-limit)
 782
 783 (encode
 784 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa(\e$B$"\e(B)aa <akr@jaist.ac.jp>"
 785 "From: =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?=\r
 786  =?US-ASCII?Q?a?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aa <akr@jaist.ac.jp>"
 787 encode-long-ascii-string-for-fold)
 788
 789 (encode
 790 "From: \e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa(\e$B$"\e(B)aa <akr@jaist.ac.jp>"
 791 "From: =?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ==?=\r
 792  =?US-ASCII?Q?aaaaaaaaaaaaaaa?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aa"
 793 encode-long-ascii-string-for-fold)
 794
 795 (encode
 796 "From: (\e$B$"\e(B) <akr@jaist.ac.jp>"
 797 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=) <akr@jaist.ac.jp>")
 798
 799 (encode
 800 "From: ((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 801 "From: ((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 802  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))\r
 803  <akr@jaist.ac.jp>"
 804 zero-characters-encoded-word-hack)
 805
 806 (encode
 807 "From: (((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 808 "From: (((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 809  =?ISO-2022-JP?B?GyRCJCIbKEI=?=)))))))))))))))))))))))))))))))))))))))))\r
 810  <akr@jaist.ac.jp>"
 811 zero-characters-encoded-word-hack)
 812
 813 (encode
 814 "From: ((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 815 "From: ((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 816  =?ISO-2022-JP?B?GyRCJCIbKEI=?=))))))))))))))))))))))))))))))))))))))))))))))\r
 817  <akr@jaist.ac.jp>"
 818 zero-characters-encoded-word-hack)
 819
 820 (encode
 821 "From: (((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 822 "From: (((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 823  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 824  =?ISO-2022-JP?B?GyhC?=)))))))))))))))))))))))))))))))))))))))))))))))\r
 825  <akr@jaist.ac.jp>"
 826 zero-characters-encoded-word-hack)
 827
 828 (encode
 829 "From: ((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 830 "From:\r
 831  ((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 832  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 833  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))\r
 834  <akr@jaist.ac.jp>"
 835 zero-characters-encoded-word-hack)
 836
 837 (encode
 838 "From: ((((((((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 839 "From:\r
 840  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 841  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 842  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
 843  <akr@jaist.ac.jp>"
 844 zero-characters-encoded-word-hack)
 845
 846 (encode
 847 "From: (((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 848 "From:\r
 849  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 850  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 851  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
 852  <akr@jaist.ac.jp>"
 853 zero-characters-encoded-word-hack)
 854
 855 (encode
 856 "From: (((((((((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 857 "From:\r
 858  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 859  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?ISO-2022-JP?B?GyhC?=\r
 860  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
 861  <akr@jaist.ac.jp>"
 862 zero-characters-encoded-word-hack)
 863
 864 (encode
 865 "From: ((((((((((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 866 "From:\r
 867  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 868  =?ISO-2022-JP?B?GyhC?=((=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 869  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))=?ISO-2022-JP?B?GyhC?=\r
 870  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))\r
 871  <akr@jaist.ac.jp>"
 872 zero-characters-encoded-word-hack)
 873
 874 (encode
 875 "From: ()(\e$B$"\e(B)() <akr@jaist.ac.jp>"
 876 "From: ()(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)() <akr@jaist.ac.jp>")
 877
 878 (encode
 879 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 880 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)()()()()()()()()()()()()()()()()()()()\r
 881   <akr@jaist.ac.jp>")
 882
 883 (encode
 884 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 885 "From:\r
 886  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)()()()()()()()()()()()()()()()()()()()()()()\r
 887   <akr@jaist.ac.jp>")
 888
 889 (encode
 890 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 891 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 892  =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()()()()()()()()()()()()()()\r
 893   <akr@jaist.ac.jp>"
 894 zero-characters-encoded-word-hack)
 895
 896 (encode
 897 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 898 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 899  =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()()()()()()(=?ISO-2022-JP?B?GyhC?=\r
 900  =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()() <akr@jaist.ac.jp>"
 901 zero-characters-encoded-word-hack)
 902
 903 (encode
 904 "To: l@d (\e$B$"\e(B aaa)(\e$B$"\e(B)"
 905 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?= aaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 906
 907 (encode
 908 "To: l@d (\e$B$"\e(B aaaa)(\e$B$"\e(B)"
 909 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 910  aaaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 911
 912 (encode
 913 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(\e$B$"\e(B)"
 914 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 915  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 916
 917 (encode
 918 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(\e$B$"\e(B)"
 919 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE=?=\r
 920  =?US-ASCII?Q?aaaaaaaaaaaaaaaaaa?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 921 encode-long-ascii-string-for-fold)
 922
 923 (encode
 924 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()\e$B$"\e(B)"
 925 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE=?=\r
 926  =?US-ASCII?Q?aaaaaaaaaaaaaaaaaa?=()=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 927 encode-long-ascii-string-for-fold)
 928
 929 (encode
 930 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa \e$B$"\e(B)(\e$B$"\e(B)"
 931 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?= aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 932  =?ISO-2022-JP?B?GyRCJCIbKEI=?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 933
 934 (encode
 935 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa \e$B$"\e(B)(\e$B$"\e(B)"
 936 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 937  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 938  =?ISO-2022-JP?B?GyRCJCIbKEI=?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 939
 940 (encode
 941 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?\e$(C$!\e(B?"
 942 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa =?EUC-KR?B?P6ShPw==?=")
 943
 944 (encode
 945 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?\e$(C$!\e(B?"
 946 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa =?EUC-KR?B?P6Sh?=\r
 947  =?US-ASCII?Q?=3F?=")
 948
 949 (encode
 950 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?\e$(C$!\e(B?"
 951 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa =?EUC-KR?B?P6Sh?=\r
 952  =?US-ASCII?Q?=3F?=")
 953
 954 (encode
 955 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa ?\e$(C$!\e(B?"
 956 "Subject: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 957  =?EUC-KR?B?P6ShPw==?=")
 958
 959 ;----------------------------------------------------------------------------
 960
 961 ;;; Section 6: Encoding melancholic inputs.
 962
 963 (encode
 964 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 965 "From: akr@jaist.ac.jp\r
 966  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 967 ignore-76bytes-limit)
 968
 969 (encode
 970 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 971 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 972  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 973  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 974 zero-characters-encoded-word-hack)
 975
 976 (encode
 977 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 978 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
 979 encode-sticked-comment-as-atom)
 980
 981 (encode
 982 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 983 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
 984  <akr@jaist.ac.jp>"
 985 permit-sticked-comment)
 986
 987 (encode
 988 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 989 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
 990  <akr@jaist.ac.jp>"
 991 separate-sticked-comment)
 992
 993 (encode
 994 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 995 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 996 permit-sticked-special)
 997
 998 (encode
 999 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
1000 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
1001 separate-sticked-special)
1002
1003 (encode
1004 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
1005 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
1006 permit-sticked-special)
1007
1008 (encode
1009 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
1010 "To: <akr@jaist.ac.jp>, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
1011 separate-sticked-special)
1012
1013 (encode
1014 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
1015 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
1016 permit-sticked-special)
1017
1018 (encode
1019 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
1020 "To: akr@jaist.ac.jp, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
1021 separate-sticked-special)
1022
1023 (encode
1024 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
1025 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
1026 permit-sticked-special)
1027
1028 (encode
1029 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
1030 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= :akr@jaist.ac.jp;"
1031 separate-sticked-special)
1032
1033 (encode
1034 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
1035 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
1036 ignore-76bytes-limit permit-sticked-special)
1037
1038 (encode
1039 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
1040 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1041  =?ISO-2022-JP?B?GyhC?=<akr@jaist.ac.jp>;"
1042 zero-characters-encoded-word-hack permit-sticked-special)
1043
1044 (encode
1045 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
1046 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1047  <akr@jaist.ac.jp>;"
1048 separate-sticked-special)
1049
1050 (encode
1051 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
1052 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
1053 ignore-76bytes-limit permit-sticked-special)
1054
1055 (encode
1056 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
1057 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1058  =?ISO-2022-JP?B?GyhC?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=\r
1059  =?ISO-2022-JP?B?GyhC?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
1060 zero-characters-encoded-word-hack permit-sticked-special)
1061
1062 (encode
1063 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
1064 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1065  <foo@bar>, =?ISO-2022-JP?B?GyRCJCYbKEI=?= <foo@bar>;,\r
1066  =?ISO-2022-JP?B?GyRCJCgbKEI=?= <foo@bar>"
1067 separate-sticked-special)
1068
1069 (encode
1070 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaa <akr@jaist.ac.jp>"
1071 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6ShPw==?=()aaaaa\r
1072  <akr@jaist.ac.jp>"
1073 permit-sticked-comment)
1074
1075 (encode
1076 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaa <akr@jaist.ac.jp>"
1077 ("From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1078  =?US-ASCII?Q?=3F?=()aaaaa <akr@jaist.ac.jp>"
1079  "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1080  =?EUC-KR?B?pKE/?=()aaaaa <akr@jaist.ac.jp>")
1081 permit-sticked-comment)
1082
1083 (encode
1084 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaa <akr@jaist.ac.jp>"
1085 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=
1086  =?US-ASCII?Q?=3F?=()aaaaa <akr@jaist.ac.jp>"
1087 permit-sticked-comment)
1088
1089 (encode
1090 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1091 ("From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1092  =?US-ASCII?Q?=3F?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1093  "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1094  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
1095 permit-sticked-comment)
1096
1097 (encode
1098 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1099 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1100  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1101 permit-sticked-comment)
1102
1103 (encode
1104 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1105 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1106  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1107 permit-sticked-comment)
1108
1109 (encode
1110 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1111 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1112  =?US-ASCII?Q?=3F?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1113 permit-sticked-comment)
1114
1115 (encode
1116 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1117 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1118  =?US-ASCII?Q?=3F?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
1119  <akr@jaist.ac.jp>"
1120 permit-sticked-comment)
1121
1122 (encode
1123 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1124 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1125  =?US-ASCII?Q?=3F?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
1126  <akr@jaist.ac.jp>"
1127 permit-sticked-comment)
1128
1129 (encode
1130 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1131 "From:\r
1132  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1133  =?US-ASCII?Q?=3F?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
1134  <akr@jaist.ac.jp>"
1135 permit-sticked-comment)
1136
1137 (encode
1138 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1139 "From:\r
1140  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1141  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
1142  <akr@jaist.ac.jp>"
1143 permit-sticked-comment)
1144
1145 (encode
1146 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
1147 ("From:\r
1148  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?EUC-KR?B?P6Sh?=\r
1149  =?US-ASCII?Q?=3F?=()=?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?=\r
1150  =?US-ASCII?Q?aaaaaaaaaaaaaaaa?= <akr@jaist.ac.jp>"
1151  "From: =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?=
1152  =?US-ASCII?Q?aa?=()=?US-ASCII?Q?=3F?=\r
1153  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
1154  <akr@jaist.ac.jp>")
1155 permit-sticked-comment)
1156
1157 (encode
1158 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<akr@jaist.ac.jp>"
1159 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1160  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<akr@jaist.ac.jp>"
1161 permit-sticked-comment)
1162
1163 (encode
1164 "From:aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<akr@jaist.ac.jp>"
1165 "From:aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1166  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<akr@jaist.ac.jp>"
1167 permit-sticked-comment)
1168
1169 (encode
1170 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()?\e$(C$!\e(B?()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<akr@jaist.ac.jp>"
1171 "From:\r
1172  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()=?US-ASCII?Q?=3F?=\r
1173  =?EUC-KR?B?pKE/?=()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa<akr@jaist.ac.jp>"
1174 permit-sticked-comment)
1175
1176 ;----------------------------------------------------------------------------
1177
1178 ;;; Section 7: Using embedded-encoded-words.
1179 ;;
1180 ;; embedded-encoded-word \e$BI=8=\e(B
1181 ;;
1182 ;; RFC2047 \e$B$N%G%3!<%@$O@x:_E*$K\e(B(\e$B%G%3!<%I7k2L$G$J$/\e(B) encoded-word \e$B$=$N$b$N$r\e(B
1183 ;; \e$B=PNO$7$J$1$l$P$J$i$J$$$3$H$,$"$k!#\e(B
1184 ;;
1185 ;; 1. \e$BCN$i$J$$\e(B charset \e$B$b$7$/$O\e(B encoding \e$B$,;XDj$5$l$F$$$?$H$-!#\e(B
1186 ;;  =?unknown-charset?known-encoding?some-encoded-text?=
1187 ;;  =?known-charset?unknown-encoding?some-encoded-text?=
1188 ;;  =?unknown-charset?unknown-encoding?some-encoded-text?=
1189 ;;
1190 ;; 2. \e$B%G%3!<%I$G$-$F$bFbMF$,7uF]$9$.$k$H$-!#\e(B
1191 ;;  Non ASCII \e$B3HD%\e(B RFC822 \e$B$NCf$K\e(B =?US-ASCII?Q?=0D=0A=0D=0A?= \e$B$N%G%3!<%I\e(B
1192 ;; \e$B7k2L$rKd$a9~$`$N$O4m81$9$.$k!#\e(B
1193 ;;
1194 ;; \e$B$^$?!"%G%3!<%@$O\e(B encoded-word \e$B$N$h$&$K$_$($k%G%3!<%I7k2L$r=PNO$7$J$1\e(B
1195 ;; \e$B$l$P$J$i$J$$$3$H$b$"$k!#\e(B
1196 ;;
1197 ;;  =?US-ASCII?Q?=3D=3FUS-ASCII=3FQ=3Ftext=3F=3D?=
1198 ;;
1199 ;; \e$B%G%3!<%@$,C1$J$kJ8;zNs$r=PNO$9$k>l9g!"C1=c$K$O\e(B encoded-word \e$B$=$N$b$N$H\e(B
1200 ;; encoded-word \e$B$N$h$&$K$_$($kJ8;zNs$r6hJL$G$-$J$$!#\e(B
1201 ;; \e$B$3$3$G$OJ8;zNsCf$G$=$l$i$r3N<B$K6hJL$7$FI=8=$9$kJ}K!$r<($9!#\e(B
1202
1203 ;;;; 1999/05/26 \e$B?7$7$$I=8=$r;W$$$D$$$?!#\e(B
1204 ;;;; \e$BG$0U$NJ8;zNsCf$K4^$^$l$kFCDj$N\e(B =?charset?encoding?text?= \e$B$H$$$&$r6hJL$9$l$PNI$$$+$i!"\e(B
1205 ;;;; =?charset?encoding?text?=?charset?encoding?text?=...?charset?encoding?text?= \e$B$H$$$&\e(B
1206 ;;;; \e$B%Q%?!<%s$G:GD9%^%C%A$r9T$$!"LdBj$N\e(B encoded-word \e$B$+$I$&$+$r\e(B charset \e$B$K%^!<%-%s%0$7$F$*$1$PNI$$!#\e(B
1207 ;;;; + \e$B$O\e(B 3\e$BG\A}$G$J$/!"G\A}$G:Q$`!#\e(B
1208
1209 ;;
1210 ;; rule 1: \e$BJ8;zNsCf$G\e(B =?charset?encoding?text?= \e$B$H$$$&%Q%?!<%s$K\e(B
1211 ;;  \e$B%^%C%A$7$J$$ItJ,$O$=$NItJ,$N$^$^$NFbMF$rI=$9!#\e(B
1212 ;;
1213 ;; rule 2: \e$BJ8;zNsCf$G\e(B =?charset?encoding?text?= \e$B$H$$$&%Q%?!<%s$K\e(B
1214 ;;  \e$B%^%C%A$9$kItJ,$O\e(B charset \e$B$N@hF,$K\e(B + \e$B$,$$$/$DIU$$$F$$$k$+$GFbMF$N\e(B
1215 ;;  \e$B2r<a$rJQ$($k!#\e(B
1216 ;;
1217 ;;  3\e$B$rK!$H$7$F\e(B0\e$B$HEy$7$$>l9g\e(B(0, 3, 6, ...): charset \e$B$N@hF,$N\e(B + \e$B$N?t$r\e(B
1218 ;;    1/3 \e$B$K$7$?J8;zNs\e(B
1219 ;;  3\e$B$rK!$H$7$F\e(B1\e$B$HEy$7$$>l9g\e(B(1, 4, 7, ...): charset \e$B$N@hF,$N\e(B + \e$B$N?t$r\e(B
1220 ;;    1/3 (\e$B>.?tE@0J2<@Z<N$F\e(B)\e$B$K$7$F!"$=$l$r\e(B encoded-word \e$B$H;W$C$F%G\e(B
1221 ;;    \e$B%3!<%I$7$?J8;zNs!#\e(B
1222 ;;  3\e$B$rK!$H$7$F\e(B2\e$B$HEy$7$$>l9g\e(B(2, 5, 8, ...): charset \e$B$N@hF,$N\e(B + \e$B$N?t$r\e(B
1223 ;;    1/3 (\e$B>.?tE@0J2<@Z<N$F\e(B)\e$B$K$7$F!":G8e$N\e(B = \e$B$r<h$j=|$$$?J8;zNs\e(B
1224 ;;
1225 ;;  =?c?e?t?=?c?e?t?=... \e$B$H$$$&$h$&$K!"%Q%?!<%s$N@hF,$N\e(B = \e$B$H\e(B \e$BKvHx$N\e(B =
1226 ;;  \e$B$,=E$J$k>l9g!"4q?tHVL\$N$b$N$KBP$7$F>e5-$N%k!<%k$rE,MQ$9$k!#\e(B
1227 ;;
1228 ;; NOTE: + \e$B$r\e(B embedded-encoded-word \e$BI=8=$N\e(B quote \e$BJ8;z$H8F$V!#\e(B
1229 ;;
1230 ;; NOTE: \e$B8=;~E@\e(B(1998/07/19)\e$B$G\e(B IANA \e$B$K$O\e(B + \e$B$r4^$`\e(B charset \e$B$O\e(B
1231 ;;  \e$BEPO?$5$l$F$$$J$$$N$G!"$=$l$i$N\e(B charset \e$B$r;H$C$?\e(B
1232 ;;  encoded-word \e$B$rI=8=$9$k$K$O\e(B + \e$B$r\e(B 1\e$B$D$D$1$k$3$H$K$J$k!#\e(B
1233 ;;
1234 ;;  =?US-ASCII?Q?abcdef?= \e$B$H$$$&\e(Bencoded-word : =?+US-ASCII?Q?abcdef?=
1235 ;;
1236 ;;  =?US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B        : =?US-ASCII?Q?abcdef?=
1237 ;;  =?+US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B       : =?+++US-ASCII?Q?abcdef?=
1238 ;;  =?++US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B     : =?++++++US-ASCII?Q?abcdef?=
1239 ;;  =?+++US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B    : =?+++++++++US-ASCII?Q?abcdef?=
1240 ;;  =?US-ASCII+?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B      : =?US-ASCII+?Q?abcdef?=
1241 ;;  =?U+S-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B      : =?U+S-ASCII?Q?abcdef?=
1242 ;;
1243 ;;  =?US-ASCII?Q?abcdef? \e$B$H$$$&J8;zNs\e(B         : =?++US-ASCII?Q?abcdef?=
1244 ;;  =?+US-ASCII?Q?abcdef? \e$B$H$$$&J8;zNs\e(B        : =?+++++US-ASCII?Q?abcdef?=
1245 ;;  =?++US-ASCII?Q?abcdef? \e$B$H$$$&J8;zNs\e(B     : =?++++++++US-ASCII?Q?abcdef?=
1246 ;;  =?+++US-ASCII?Q?abcdef? \e$B$H$$$&J8;zNs\e(B    : =?+++++++++++US-ASCII?Q?abcdef?=
1247 ;;
1248 ;; NOTE: encoded-word \e$B$K8+$($kJ8;zNs$G\e(B + \e$B$,\e(B 3\e$BG\A}$5$l$k$N$O\e(B charset \e$B$N\e(B
1249 ;;  \e$B@hF,$@$1$G$"$j!"\e(Bencoding \e$B$d\e(B encoded-text \e$B$O$?$H$(\e(B + \e$B$,F~$C$F$$$F$b\e(B
1250 ;;  \e$BJQ2=$7$J$$!#$^$?!"\e(Bcharset \e$BCf$G$b\e(B \e$B@hF,0J30$N\e(B + \e$B$OJQ2=$7$J$$!#\e(B
1251 ;;
1252 ;; NOTE: charset \e$B$H\e(B encoding \e$B$K$O\e(B = \e$B$O4^$^$l$J$$$N$G\e(B 1\e$BJ8;z0J>e=E$J$k$3\e(B
1253 ;;  \e$B$H$O$J$$!#\e(B
1254 ;;
1255 ;; rule 3: \e$BJ8;zNsA4BN$NFbMF$O!"\e(Brule 1 \e$B$H\e(B rule 2 \e$B$G2r<a$7$?3FItJ,$N\e(B
1256 ;;   \e$BJ8;zNs$rC1=c$KO"7k$7$?J8;zNs$H$9$k!#\e(B
1257 ;;
1258 ;; NOTE: RFC2047 \e$B$G$O\e(B encoded-word \e$B$,6uGr$G6h@Z$i$l$J$1$l$P$J$i$J$$$H$+!"\e(B
1259 ;;  encoded-word \e$B$O\e(B 75bytes \e$B0J2<$G$J$1$l$P$J$i$J$$$H$+!"\e(B
1260 ;;  encoded-word \e$B$,4^$^$l$k9T$O\e(B 76bytes \e$B0J2<$G$J$1$l$P$J$i$J$$$H$+!"\e(B
1261 ;;  encoded-word \e$B$,\e(B quoted-string \e$BFb$K$OB8:_$G$-$J$$$H$+!"\e(B
1262 ;;  encoded-text \e$B$,\e(B 1byte \e$B0J>e$J$1$l$P$J$i$J$$$J$I$H$$$&\e(B
1263 ;;  \e$B5,Ls$,$"$k$,!"\e(Bembedded-encoded-word \e$BI=8=$G$O$=$l$i$O:NMQ$7$J$$!#\e(B
1264 ;;  \e$BC1=c$K\e(B encoded-word \e$BFbIt$NJ8K!$@$1$r\e(B(\e$B=$@5$7$F\e(B)\e$BMxMQ$9$k!#\e(B
1265 ;;  (\e$BK\<AE*$K$O0[$J$kJ8K!$r:NMQ$9$k$3$H$b2DG=$G$"$k$,!"\e(BRFC2047 \e$B$K7I0U$r\e(B
1266 ;;  \e$BI=$7$F\e(B encoded-word \e$B$NJ8K!$r:NMQ$9$k!#\e(B)
1267 ;;
1268 ;; NOTE: embedded-encoded-word \e$BI=8=$7$?J8;zNs$NO"7k$O0BA4$G$O$J$$!#\e(B
1269 ;;  =?+US-ASCII?Q?ab \e$B$H\e(B cd?= \e$B$H$$$&\e(B embedded-encoded-word \e$BI=8=$7$?J8;zNs$O\e(B
1270 ;;  \e$B$=$l$>$l$=$NJ8;zNs$=$N$b$N$rI=8=$9$k$,!"$=$l$i$rO"7k$7$?J8;zNs\e(B
1271 ;;  =?+US-ASCII?Q?abcd?= \e$B$O\e(B abcd \e$B$H$$$&J8;zNs$rI=8=$9$k$3$H$K$J$j!"\e(B
1272 ;;  \e$B$=$l$>$l$NFbMF$NO"7k$H$O$J$i$J$$!#\e(B
1273 ;;  \e$B$3$N>l9g!"\e(B=?+++US-ASCII?Q?abcd?= \e$B$H$7$J$1$l$P$J$i$J$$!#\e(B
1274 ;;
1275 ;;  \e$B$3$l$O$H$/$K\e(B Non ASCII \e$B3HD%\e(B RFC822 \e$B$NCf$K\e(B embedded-encoded-word \e$BI=8=$r\e(B
1276 ;;  \e$BKd$a9~$`$H$-$K5$$rIU$1$J$1$l$P$J$i$J$$!#\e(B(\e$BKd$a9~$s$@7k2L$O@5$7$$\e(B
1277 ;;  embedded-encoded-word \e$BI=8=$H$O$J$i$J$$$+$bCN$l$J$$!#\e(B)
1278
1279 (decode
1280 "Subject: =?Unknown-Charset?B?gqA=?="
1281 "Subject: =?+Unknown-Charset?B?gqA=?="
1282 embedded-encoded-word)
1283
1284 (decode
1285 "Subject: =?US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?="
1286 "Subject: =?+US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?="
1287 embedded-encoded-word)
1288
1289 (decode
1290 "Subject: =?US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?="
1291 "Subject: =?+US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?="
1292 embedded-encoded-word)
1293
1294 (decode
1295 "Subject: =?ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?=\r
1296  =?ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?="
1297 "Subject: =?+ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?==?+ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?="
1298 embedded-encoded-word)
1299
1300 (decode
1301 "Subject: =?Unknown-Charset?B?gqA=?= =?Unknown-Charset?B?gqA=?="
1302 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1303 embedded-encoded-word)
1304
1305 (decode
1306 "Subject: =?Unknown-Charset?B?gqA=?=  =?Unknown-Charset?B?gqA=?="
1307 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1308 embedded-encoded-word)
1309
1310 (decode
1311 "Subject: =?Unknown-Charset?B?gqA=?=\r
1312  =?Unknown-Charset?B?gqA=?="
1313 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1314 embedded-encoded-word)
1315
1316 (decode
1317 "Subject: =?Unknown-Charset?B?gqA=?=\r
1318 \t=?Unknown-Charset?B?gqA=?="
1319 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1320 embedded-encoded-word)
1321
1322 (decode
1323 "Subject: a=?Unknown-Charset?B?gqA=?="
1324 "Subject: a=?Unknown-Charset?B?gqA=?="
1325 embedded-encoded-word)
1326
1327 (decode
1328 "Subject: =?Unknown-Charset?B?gqA=?=b"
1329 "Subject: =?Unknown-Charset?B?gqA=?=b"
1330 embedded-encoded-word)
1331
1332 (decode
1333 "Subject: a=?Unknown-Charset?B?gqA=?=b"
1334 "Subject: a=?Unknown-Charset?B?gqA=?=b"
1335 embedded-encoded-word)
1336
1337 (decode
1338 "Subject: a =?Unknown-Charset?B?gqA=?= b"
1339 "Subject: a =?+Unknown-Charset?B?gqA=?= b"
1340 embedded-encoded-word)
1341
1342 (decode
1343 "Subject: =?ISO-2022-JP?B?DQoNCg==?="
1344 "Subject: =?+US-ASCII?Q?=0D=0A=0D=0A?="
1345 embedded-encoded-word)
1346
1347 (decode
1348 "Subject: =?US-ASCII?Q?a=0D=0A_b?="
1349 "Subject: a b"
1350 embedded-encoded-word)
1351
1352 (decode
1353 "Subject: =?US-ASCII?Q?a=0D=0Ab?="
1354 "Subject: a=?+US-ASCII?Q?=0D=0A?=b"
1355 embedded-encoded-word)
1356
1357 (decode
1358 "From: =?+C?Q?abcdef?= <akr@jaist.ac.jp>"
1359 "From: =?++++C?Q?abcdef?= <akr@jaist.ac.jp>"
1360 embedded-encoded-word)
1361
1362 (decode
1363 "From: \"=?+C?Q?abcdef?=\" <akr@jaist.ac.jp>"
1364 "From: \"=?+++C?Q?abcdef?=\" <akr@jaist.ac.jp>"
1365 embedded-encoded-word)
1366
1367 (decode
1368 "From: =?C?Q?abc?= =?US-ASCII?Q?=2E?= <akr@jaist.ac.jp>"
1369 "From: \"=?+C?Q?abc?=.\" <akr@jaist.ac.jp>"
1370 embedded-encoded-word)
1371
1372 ;;; Section 8: CR and LF.
1373
1374 (decode
1375 "From: akr@jaist.ac.jp (\r\\\n)"
1376 "From: akr@jaist.ac.jp (\r\\\n)")
1377
1378 (decode
1379 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= =?US-ASCII?Q?a?=)"
1380 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= a)")
1381
1382 (decode
1383 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A_?=)"
1384 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A_?=)")
1385
1386 (decode
1387 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A=09?=)"
1388 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A=09?=)")
1389
1390 (decode
1391 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= )"
1392 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?= )")
1393
1394 (decode
1395 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?=\t)"
1396 "From: akr@jaist.ac.jp (\r=?US-ASCII?Q?=0A?=\t)")
1397
1398 (decode
1399 "From: akr@jaist.ac.jp (\\\r\\\n)"
1400 "From: akr@jaist.ac.jp (\\\r\\\n)")
1401
1402 (decode
1403 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?= =?US-ASCII?Q?a?=)"
1404 "From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A?=a)"
1405 embedded-encoded-word)
1406
1407 (decode
1408 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0Aa?=)"
1409 "From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A?=a)"
1410 embedded-encoded-word)
1411
1412 (decode
1413 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A_?=)"
1414 "From: akr@jaist.ac.jp (\\ )")
1415
1416 (decode
1417 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A=09?=)"
1418 "From: akr@jaist.ac.jp (\\\t)")
1419
1420 (decode
1421 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?= )"
1422 "From: akr@jaist.ac.jp (\\ )")
1423
1424 (decode
1425 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?=\t)"
1426 "From: akr@jaist.ac.jp (\\\t)")
1427
1428 (decode
1429 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?=\r
1430  =?US-ASCII?Q?=0D=0A?= =?US-ASCII?Q?a?=)"
1431 "From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A=0D=0A?=a)"
1432 embedded-encoded-word)
1433
1434 (decode
1435 "From: akr@jaist.ac.jp (\\\r=?US-ASCII?Q?=0A?=\r
1436  =?US-ASCII?Q?=0D?=\\\n =?US-ASCII?Q?a?=)"
1437 "From: akr@jaist.ac.jp (=?+US-ASCII?Q?=0D=0A?=\r\\
1438  a)"
1439 embedded-encoded-word)
1440
1441 ))
1442
1443 ;----------------------------------------------------------------------------
1444
1445 ;;; test driver.
1446
1447 (defun report (decoder encoder &optional verbose)
1448   (let ((pats test-patterns) pat src dsts opts dst
1449         (decode-success 0)
1450         (decode-failure 0)
1451         (decode-error 0)
1452         (decode-giveup 0)
1453         (encode-success 0)
1454         (encode-failure 0)
1455         (encode-error 0)
1456         (encode-giveup 0))
1457     (while pats
1458       (setq pat (car pats)
1459             src (nth 1 pat)
1460             dsts (nth 2 pat)
1461             opts (nthcdr 3 pat)
1462             pats (cdr pats))
1463       (if (stringp dsts) (setq dsts (list dsts)))
1464       (cond
1465         ((eq (car pat) 'decode)
1466          (condition-case err
1467              (progn
1468                (setq dst (apply decoder src opts))
1469                (if dst
1470                    (if (member dst dsts)
1471                        (progn
1472                          (if verbose (message "decode-success: %S" pat))
1473                          (setq decode-success (1+ decode-success)))
1474                      (progn
1475                        (if verbose (message "decode-failure: %S %S" pat dst))
1476                        (setq decode-failure (1+ decode-failure))))
1477                  (progn
1478                    (if verbose (message "decode-giveup: %S" pat))
1479                    (setq decode-giveup (1+ decode-giveup)))))
1480            (error
1481              (if verbose (message "decode-error: %S %S" err pat))
1482              (setq decode-error (1+ decode-error)))))
1483         ((eq (car pat) 'encode)
1484          (condition-case err
1485              (progn
1486                (setq dst (apply encoder src opts))
1487                (if dst
1488                    (if (member dst dsts)
1489                        (progn
1490                          (if verbose (message "encode-success: %S" pat))
1491                          (setq encode-success (1+ encode-success)))
1492                      (progn
1493                        (if verbose (message "encode-failure: %S %S" pat dst))
1494                        (setq encode-failure (1+ encode-failure))))
1495                  (progn
1496                    (if verbose (message "encode-giveup: %S" pat))
1497                    (setq encode-giveup (1+ encode-giveup)))))
1498            (error
1499              (if verbose (message "encode-error: %S %S" err pat))
1500              (setq encode-error (1+ encode-error)))))
1501         (t
1502           (message "pattern error: %S" pat))))
1503     (message "\
1504 decode %d patterns:
1505   success: %d
1506   failure: %d
1507   error: %d
1508   giveup: %d
1509 encode %d patterns:
1510   success: %d
1511   failure: %d
1512   error: %d
1513   giveup: %d"
1514       (+ decode-success decode-failure decode-error decode-giveup)
1515       decode-success decode-failure decode-error decode-giveup
1516       (+ encode-success encode-failure encode-error encode-giveup)
1517       encode-success encode-failure encode-error encode-giveup)))