TESTPAT

   1 ;----------------------------------------------------------------------------
   2 ;-------- This sequece of HYPHEN-MINUS is 76 bytes long. --------------------
   3 ;----------------------------------------------------------------------------
   4
   5 ; options:
   6 ;encode-sticked-comment-as-atom         ; violate policy preventing structure
   7 ;ignore-75bytes-limit                   ; violate RFC2047
   8 ;ignore-76bytes-limit                   ; violate RFC2047
   9 ;permit-sticked-comment                 ; violate RFC2047
  10 ;permit-sticked-special                 ; violate RFC2047
  11 ;separate-sticked-comment               ; violate policy preserving absence of space
  12 ;separate-sticked-special               ; violate policy preserving absence of space
  13 ;zero-characters-encoded-word-hack      ; violate common sense (very tricky)
  14
  15 ;;; test driver for FLIM-FLAM (and FLIM)
  16
  17 (defun decode (src dsts &rest opts)
  18   (setq eword-lexical-analyze-cache nil)
  19   (setq eword-decode-sticked-encoded-word
  20     (or (memq 'permit-sticked-comment opts)
  21         (memq 'permit-sticked-special opts)))
  22   (setq eword-decode-quoted-encoded-word nil)
  23   (if (stringp dsts) (setq dsts (list dsts)))
  24   (with-temp-buffer
  25     (insert src "\n" mail-header-separator)
  26     (eword-decode-header 'us-ascii mail-header-separator)
  27     (goto-char (point-min))
  28     (std11-narrow-to-header mail-header-separator)
  29     (std11-field-end)
  30     (let ((result (buffer-substring (point-min) (point))))
  31       (if (member result dsts) t result))))
  32
  33 (defun encode (src dsts &rest opts)
  34   (setq eword-lexical-analyze-cache nil)
  35   (setq eword-decode-sticked-encoded-word nil)
  36   (setq eword-decode-quoted-encoded-word nil)
  37   (if (stringp dsts) (setq dsts (list dsts)))
  38   (with-temp-buffer
  39     (insert src "\n" mail-header-separator)
  40     (goto-char (point-min))
  41     (eword-encode-header 'us-ascii)
  42     (goto-char (point-min))
  43     (std11-narrow-to-header mail-header-separator)
  44     (std11-field-end)
  45     (let ((result (buffer-substring (point-min) (point))))
  46       (if (member result dsts) t result))))
  47
  48 ;;; from RFC2047
  49
  50 (decode
  51 "From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>"
  52 "From: Keith Moore <moore@cs.utk.edu>")
  53
  54 (decode
  55 "To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>"
  56 "To: Keld J\e.A\eNxrn Simonsen <keld@dkuug.dk>")\e*B
  57
  58 (decode
  59 "CC: =?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>"
  60 "CC: Andr\e.A\eNi Pirard <PIRARD@vm1.ulg.ac.be>")\e*B
  61
  62 (decode
  63 "Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
  64  =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?="
  65 "Subject: If you can read this you understand the example.")
  66
  67 (decode
  68 "From: =?ISO-8859-1?Q?Olle_J=E4rnefors?= <ojarnef@admin.kth.se>"
  69 "From: Olle J\e.A\eNdrnefors <ojarnef@admin.kth.se>")\e*B
  70
  71 (decode
  72 "From: =?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@nada.kth.se>"
  73 "From: Patrik F\e.A\eNdltstr\eNvm <paf@nada.kth.se>")\e*B
  74
  75 (decode
  76 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>
  77         (=?iso-8859-8?b?7eXs+SDv4SDp7Oj08A==?=)"
  78 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>  (\e.H\eNm\eNe\eNl\eNy \eNo\eNa \eNi\eNl\eNh\eNt\eNp)")\e*B
  79 ; FLIM-FLAM
  80
  81 (decode
  82 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=)"
  83 "From: foo@bar.baz (a)")
  84
  85 (decode
  86 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= b)"
  87 "From: foo@bar.baz (a b)")
  88
  89 (decode
  90 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
  91 "From: foo@bar.baz (ab)")
  92
  93 (decode
  94 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
  95 "From: foo@bar.baz (ab)")
  96
  97 (decode
  98 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=
  99         =?ISO-8859-1?Q?b?=)"
 100 "From: foo@bar.baz (ab)")
 101
 102 (decode
 103 "From: foo@bar.baz (=?ISO-8859-1?Q?a_b?=)"
 104 "From: foo@bar.baz (a b)")
 105
 106 (decode
 107 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 108 "From: foo@bar.baz (a b)")
 109
 110 (decode
 111 "Subject: (=?ISO-8859-1?Q?a?=)"
 112 "Subject: (=?ISO-8859-1?Q?a?=)")
 113
 114 (decode
 115 "Subject: (=?ISO-8859-1?Q?a?= b)"
 116 "Subject: (=?ISO-8859-1?Q?a?= b)")
 117
 118 (decode
 119 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
 120 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)")
 121
 122 (decode
 123 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
 124 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)")
 125
 126 (decode
 127 "Subject: (=?ISO-8859-1?Q?a?=
 128         =?ISO-8859-1?Q?b?=)"
 129 "Subject: (=?ISO-8859-1?Q?a?=   =?ISO-8859-1?Q?b?=)")
 130
 131 (decode
 132 "Subject: (=?ISO-8859-1?Q?a_b?=)"
 133 "Subject: (=?ISO-8859-1?Q?a_b?=)")
 134
 135 (decode
 136 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 137 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)")
 138
 139 ;;; by akr@jaist.ac.jp
 140
 141 (decode
 142 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 143 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 144
 145 (encode
 146 "From: \e$B$"\e(B <akr@jaist.ac.jp>"
 147 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 148
 149 (decode
 150 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 151  <akr@jaist.ac.jp>"
 152 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 153
 154 (decode
 155 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=
 156  =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 157  <akr@jaist.ac.jp>"
 158 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 159
 160 (decode
 161 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=
 162         =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 163  <akr@jaist.ac.jp>"
 164 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 165
 166 (decode
 167 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?=
 168  <akr@jaist.ac.jp>"
 169 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?= <akr@jaist.ac.jp>")
 170
 171 (decode
 172 "From: akr@jaist.ac.jp
 173  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\\a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 174 "From: akr@jaist.ac.jp (\e$B$"\e(B\\a\e$B$$\e(B)")
 175 ; FLIM-FLAM
 176
 177 (decode
 178 "From: akr@jaist.ac.jp
 179  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 180 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)")
 181 ; FLIM-FLAM
 182
 183 (decode
 184 "From: akr@jaist.ac.jp
 185  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 186 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)")
 187 ; FLIM-FLAM
 188
 189 (decode
 190 "From: akr@jaist.ac.jp
 191  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 192 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 193 'ignore-76bytes-limit)
 194
 195 (encode
 196 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 197 "From: akr@jaist.ac.jp
 198  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 199 'ignore-76bytes-limit)
 200 ; FLIM-FLAM
 201
 202 (decode
 203 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 204  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 205  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 206 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)")
 207
 208 (encode
 209 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 210 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 211  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 212  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 213 'zero-characters-encoded-word-hack)
 214 ; FLIM-FLAM
 215
 216 (decode
 217 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 218 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 219
 220 (decode
 221 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 222 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 223
 224 (decode
 225 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 226 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 227
 228 (decode
 229 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 230 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 231
 232 (decode
 233 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 234 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 235
 236 (decode
 237 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 238 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 239
 240 (decode
 241 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 242 "From: (a)\e$B$"\e(B <akr@jaist.ac.jp>"
 243 'permit-sticked-comment)
 244
 245 (decode
 246 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 247 "From: \e$B$"\e(B(b) <akr@jaist.ac.jp>"
 248 'permit-sticked-comment)
 249
 250 (decode
 251 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 252 "From: (a)\e$B$"\e(B(b) <akr@jaist.ac.jp>"
 253 'permit-sticked-comment)
 254
 255 (decode
 256 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 257 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 258
 259 (decode
 260 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 261 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 262
 263 (decode
 264 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 265 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 266
 267 (decode
 268 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>"
 269 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>")
 270
 271 (decode
 272 "From: \"\\\"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\\\"\\\\\" <akr@jaist.ac.jp>"
 273 "From: \"\\\"\\\\\" \e$B$"\e(B \"\\\"\\\\\" <akr@jaist.ac.jp>")
 274
 275 (decode
 276 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>"
 277 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>")
 278 ; FLIM-FLAM
 279
 280 (decode
 281 "From: =?ISO-2022-JP?Q?=1B=24BAA=1B=28B?= <akr@jaist.ac.jp>"
 282 "From: \e$BAA\e(B <akr@jaist.ac.jp>")
 283
 284 (decode
 285 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>"
 286 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>")
 287
 288 (decode
 289 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)"
 290 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)")
 291
 292 (encode
 293 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>"
 294 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>")
 295 ; FLIM-FLAM
 296
 297 (decode
 298 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
 299 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>")
 300
 301 (encode
 302 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 303 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
 304 'encode-sticked-comment-as-atom)
 305 ; FLIM-FLAM
 306
 307 (encode
 308 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 309 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)
 310  <akr@jaist.ac.jp>"
 311 'permit-sticked-comment)
 312 ; FLIM-FLAM
 313
 314 (encode
 315 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 316 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)
 317  <akr@jaist.ac.jp>"
 318 'separate-sticked-comment)
 319 ; FLIM-FLAM
 320
 321 (decode
 322 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)
 323  <akr@jaist.ac.jp>"
 324 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 325 'permit-sticked-comment)
 326
 327 (decode
 328 "From: =?US-ASCII?Q?=28?= <akr@jaist.ac.jp>, =?US-ASCII?Q?=29?= <akr@jaist.ac.jp>"
 329 "From: \"(\" <akr@jaist.ac.jp>, \")\" <akr@jaist.ac.jp>")
 330
 331 (decode
 332 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= <akr@jaist.ac.jp>"
 333 "From: \"a\\\"b\e$B$"\e(Bc\\\\\" <akr@jaist.ac.jp>")
 334
 335 (encode
 336 "From: \"a\\\"b\e$B$"\e(Bc\\\\\" <akr@jaist.ac.jp>"
 337 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= <akr@jaist.ac.jp>")
 338 ; FLIM-FLAM
 339
 340 (decode
 341 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 342 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 343
 344 (decode
 345 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 346 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 347 'permit-sticked-special)
 348
 349 (encode
 350 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 351 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 352 'permit-sticked-special)
 353 ; FLIM-FLAM
 354
 355 (encode
 356 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 357 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 358 'separate-sticked-special)
 359
 360 (decode
 361 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 362 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 363
 364 (decode
 365 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 366 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 367 'permit-sticked-special)
 368
 369 (encode
 370 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 371 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 372 'permit-sticked-special)
 373 ; FLIM-FLAM
 374
 375 (encode
 376 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 377 "To: <akr@jaist.ac.jp>, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 378 'separate-sticked-special)
 379
 380 (decode
 381 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 382 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 383
 384 (decode
 385 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 386 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
 387 'permit-sticked-special)
 388
 389 (encode
 390 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
 391 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 392 'permit-sticked-special)
 393 ; FLIM-FLAM
 394
 395 (encode
 396 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
 397 "To: akr@jaist.ac.jp, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 398 'separate-sticked-special)
 399
 400 (decode
 401 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 402 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;")
 403
 404 (decode
 405 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 406 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 407 'permit-sticked-special)
 408
 409 (encode
 410 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 411 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 412 'permit-sticked-special)
 413 ; FLIM-FLAM
 414
 415 (encode
 416 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 417 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= :akr@jaist.ac.jp;"
 418 'separate-sticked-special)
 419 ; FLIM-FLAM
 420
 421 (decode
 422 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 423 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;")
 424
 425 (decode
 426 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 427 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 428 'ignore-76bytes-limit 'permit-sticked-special)
 429
 430 (encode
 431 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 432 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 433 'ignore-76bytes-limit 'permit-sticked-special)
 434 ; FLIM-FLAM
 435
 436 (encode
 437 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 438 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 439  =?ISO-2022-JP?B?GyhC?=<akr@jaist.ac.jp>;"
 440 'zero-characters-encoded-word-hack 'permit-sticked-special)
 441 ; FLIM-FLAM
 442
 443 (encode
 444 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 445 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 446  <akr@jaist.ac.jp>;"
 447 'separate-sticked-special)
 448 ; FLIM-FLAM
 449
 450 (decode
 451 "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>"
 452 "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>")
 453
 454 (decode
 455 "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>"
 456 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 457 'ignore-76bytes-limit 'permit-sticked-special)
 458
 459 (encode
 460 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 461 "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>"
 462 'ignore-76bytes-limit 'permit-sticked-special)
 463 ; FLIM-FLAM
 464
 465 (encode
 466 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 467 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 468  =?ISO-2022-JP?B?GyhC?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=
 469  =?ISO-2022-JP?B?GyhC?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
 470 'zero-characters-encoded-word-hack 'permit-sticked-special)
 471 ; FLIM-FLAM
 472
 473 (encode
 474 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 475 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 476  <foo@bar>, =?ISO-2022-JP?B?GyRCJCYbKEI=?= <foo@bar>;,
 477  =?ISO-2022-JP?B?GyRCJCgbKEI=?= <foo@bar>"
 478 'separate-sticked-special)
 479 ; FLIM-FLAM
 480
 481 (decode
 482 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 483 "Subject: \e$B$"\e(B")
 484
 485 (decode
 486 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 487 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 488
 489 (decode
 490 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 491 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 492
 493 (decode
 494 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 495 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 496
 497 (decode
 498 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 499 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 500
 501 (decode
 502 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 503 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 504
 505 (decode
 506 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 507 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 508
 509 (decode
 510 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 511 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 512
 513 (decode
 514 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 515 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 516
 517 (decode
 518 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 519 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 520
 521 (decode
 522 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 523 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 524
 525 (decode
 526 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:"
 527 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:")
 528
 529 (decode
 530 "Subject: =?ISO-2022-JP?B??="
 531 "Subject: =?ISO-2022-JP?B??=")
 532
 533 (decode
 534 "Subject: =?ISO-2022-JP?B?DQoNCg==?="
 535 "Subject: ")
 536
 537 (decode
 538 "Subject: =?US-ASCII?Q?a=0D=0A_b?="
 539 "Subject: a b")
 540 ; FLIM-FLAM
 541
 542 (decode
 543 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a
 544  =?ISO-2022-JP?B?GyRCJCQbKEI=?="
 545 "Subject: \e$B$"\e(B a \e$B$$\e(B")
 546
 547 (encode
 548 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 549 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=
 550  =?US-ASCII?Q?____________________________________________________________?=
 551  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?=")
 552 ; FLIM-FLAM
 553
 554 (decode
 555 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=
 556  =?US-ASCII?Q?____________________________________________________________?=
 557  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?="
 558 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B")
 559
 560 (encode
 561 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 562 "Subject: =?ISO-2022-JP?B?GyQpQrCkICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICDS3w=="
 563 'ignore-76bytes-limit 'ignore-75bytes-limit)
 564 ; FLIM-FLAM
 565
 566 (decode
 567 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 568 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 569
 570 (decode
 571 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 572 "Subject:\e$B$"\e(B"
 573 'permit-sticked-special)
 574
 575 (encode
 576 "From: \e.A\eN! <akr@jaist.ac.jp>"\e*B
 577 "From: =?ISO-8859-1?Q?=A1?= <akr@jaist.ac.jp>")
 578
 579 (decode
 580 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>"
 581 "From: \"abcdefghijklmnopqrst\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>")\e*B
 582
 583 (encode
 584 "From: \"abcdefghijklmnopqrst\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>"\e*B
 585 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>")
 586 ; FLIM-FLAM
 587
 588 (encode
 589 "From: akr@jaist.ac.jp (abcdefghijklmnopqrst\e.A\eN!\\(\\)\"\\\\)"\e*B
 590 "From: akr@jaist.ac.jp (=?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29\"=5C?=)")
 591 ; FLIM-FLAM
 592
 593 (decode
 594 "Subject: ?= =?"
 595 "Subject: ?= =?")
 596
 597 (decode
 598 "Subject: \" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \""
 599 "Subject: \" \e$B$"\e(B \"")
 600
 601 (decode
 602 "From: \"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\" <akr@jaist.ac.jp>"
 603 "From: \"\\\\\" \e$B$"\e(B \"\" <akr@jaist.ac.jp>")
 604
 605 (decode
 606 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B_=1B$B$\"=1B(B?="
 607 "Subject: \e$B$"\e(B \e$B$"\e(B")
 608
 609 (decode
 610 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?="
 611 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?=")
 612
 613 (decode
 614 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?="
 615 "Subject: \e$B$"\e(B a \e.H\eN`")\e*B
 616
 617 (encode
 618 "Subject: \e$B$"\e(B a \e.H\eN`"\e*B
 619 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?=")
 620
 621 (decode
 622 "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 623 "Subject: \e.H\eN`\e$BNm\e(B")\e*B
 624
 625 (encode
 626 "Subject: \e.H\eN`\e$BNm\e(B"\e*B
 627 "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?=")
 628 ; FLIM-FLAM
 629
 630 (decode
 631 "Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 632 "Subject: \e.H\eN` \e$BNm\e(B")\e*B
 633
 634 (encode
 635 "Subject: \e.H\eN` \e$BNm\e(B"\e*B
 636 '("Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 637   "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?IBskQk5tGyhC?="))
 638
 639 (encode
 640 "Subject: \e.F\eNC\e$B4X?t\e(B"\e*B
 641 '("Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 642   "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="))
 643
 644 (decode
 645 "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="
 646 "Subject: \e.F\eNC\e$B4X?t\e(B")\e*B
 647
 648 (decode
 649 "Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 650 "Subject: \e.F\eNC\e$B4X?t\e(B")\e*B
 651
 652 ;----------------------------------------------------------------------------