TESTPAT

   1 ;----------------------------------------------------------------------------
   2 ;-------- This sequece of hyphens 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 nil)
  20   (setq eword-decode-quoted-encoded-word nil)
  21   (if (memq 'permit-sticked-comment opts) (setq eword-decode-sticked-encoded-word t))
  22   (if (stringp dsts) (setq dsts (list dsts)))
  23   (with-temp-buffer
  24     (insert src "\nDummy-Header: \n" mail-header-separator)
  25     (eword-decode-header 'us-ascii)
  26     (goto-char (point-min))
  27     (std11-field-end)
  28     (let ((result (buffer-substring (point-min) (point))))
  29       (if (member result dsts)
  30           t
  31         result))))
  32
  33 (defun encode (src dsts &rest opts)
  34   (if (stringp dsts) (setq dsts (list dsts)))
  35   (with-temp-buffer
  36     (insert src "\nDummy-Header: \n" mail-header-separator)
  37     (goto-char (point-min))
  38     (eword-encode-header 'us-ascii)
  39     (goto-char (point-min))
  40     (std11-field-end)
  41     (let ((result (buffer-substring (point-min) (point))))
  42       (if (member result dsts)
  43           t
  44         result))))
  45
  46 ;;; from RFC2047
  47
  48 (decode
  49 "From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>"
  50 "From: Keith Moore <moore@cs.utk.edu>")
  51
  52 (decode
  53 "To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>"
  54 "To: Keld J\e.A\eNxrn Simonsen <keld@dkuug.dk>")\e*B
  55
  56 (decode
  57 "CC: =?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>"
  58 "CC: Andr\e.A\eNi Pirard <PIRARD@vm1.ulg.ac.be>")\e*B
  59
  60 (decode
  61 "Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
  62  =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?="
  63 "Subject: If you can read this you understand the example.")
  64
  65 (decode
  66 "From: =?ISO-8859-1?Q?Olle_J=E4rnefors?= <ojarnef@admin.kth.se>"
  67 "From: Olle J\e.A\eNdrnefors <ojarnef@admin.kth.se>")\e*B
  68
  69 (decode
  70 "From: =?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@nada.kth.se>"
  71 "From: Patrik F\e.A\eNdltstr\eNvm <paf@nada.kth.se>")\e*B
  72
  73 (decode
  74 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>
  75         (=?iso-8859-8?b?7eXs+SDv4SDp7Oj08A==?=)"
  76 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>  (\e.H\eNm\eNe\eNl\eNy \eNo\eNa \eNi\eNl\eNh\eNt\eNp)")\e*B
  77
  78 (decode
  79 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=)"
  80 "From: foo@bar.baz (a)")
  81
  82 (decode
  83 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= b)"
  84 "From: foo@bar.baz (a b)")
  85
  86 (decode
  87 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
  88 "From: foo@bar.baz (ab)")
  89
  90 (decode
  91 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
  92 "From: foo@bar.baz (ab)")
  93
  94 (decode
  95 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=
  96         =?ISO-8859-1?Q?b?=)"
  97 "From: foo@bar.baz (ab)")
  98
  99 (decode
 100 "From: foo@bar.baz (=?ISO-8859-1?Q?a_b?=)"
 101 "From: foo@bar.baz (a b)")
 102
 103 (decode
 104 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 105 "From: foo@bar.baz (a b)")
 106
 107 (decode
 108 "Subject: (=?ISO-8859-1?Q?a?=)"
 109 "Subject: (=?ISO-8859-1?Q?a?=)")
 110
 111 (decode
 112 "Subject: (=?ISO-8859-1?Q?a?= b)"
 113 "Subject: (=?ISO-8859-1?Q?a?= b)")
 114
 115 (decode
 116 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
 117 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)")
 118
 119 (decode
 120 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
 121 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)")
 122
 123 (decode
 124 "Subject: (=?ISO-8859-1?Q?a?=
 125         =?ISO-8859-1?Q?b?=)"
 126 "Subject: (=?ISO-8859-1?Q?a?=   =?ISO-8859-1?Q?b?=)")
 127
 128 (decode
 129 "Subject: (=?ISO-8859-1?Q?a_b?=)"
 130 "Subject: (=?ISO-8859-1?Q?a_b?=)")
 131
 132 (decode
 133 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 134 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)")
 135
 136 ;;; by akr@jaist.ac.jp
 137
 138 (decode
 139 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 140 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 141
 142 (encode
 143 "From: \e$B$"\e(B <akr@jaist.ac.jp>"
 144 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 145
 146 (decode
 147 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 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=?=
 153  =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 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=?=
 159         =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 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=?==?ISO-2022-JP?B?GyRCJCQbKEI=?=
 165  <akr@jaist.ac.jp>"
 166 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?= <akr@jaist.ac.jp>")
 167
 168 (decode
 169 "From: akr@jaist.ac.jp
 170  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\\a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 171 "From: akr@jaist.ac.jp (\e$B$"\e(B\\a\e$B$$\e(B)")
 172
 173 (decode
 174 "From: akr@jaist.ac.jp
 175  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 176 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)")
 177
 178 (decode
 179 "From: akr@jaist.ac.jp
 180  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 181 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)")
 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 (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 187 'ignore-76bytes-limit)
 188
 189 (encode
 190 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 191 "From: akr@jaist.ac.jp
 192  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 193 'ignore-76bytes-limit)
 194
 195 (decode
 196 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 197  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 198  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 199 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)")
 200
 201 (encode
 202 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 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 'zero-characters-encoded-word-hack)
 207
 208 (decode
 209 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 210 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 211
 212 (decode
 213 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 214 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 215
 216 (decode
 217 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 218 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 219
 220 (decode
 221 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 222 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 223
 224 (decode
 225 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 226 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 227
 228 (decode
 229 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 230 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 231
 232 (decode
 233 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 234 "From: (a)\e$B$"\e(B <akr@jaist.ac.jp>"
 235 'permit-sticked-comment)
 236
 237 (decode
 238 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 239 "From: \e$B$"\e(B(b) <akr@jaist.ac.jp>"
 240 'permit-sticked-comment)
 241
 242 (decode
 243 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 244 "From: (a)\e$B$"\e(B(b) <akr@jaist.ac.jp>"
 245 'permit-sticked-comment)
 246
 247 (decode
 248 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 249 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 250
 251 (decode
 252 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 253 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 254
 255 (decode
 256 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 257 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 258
 259 (decode
 260 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>"
 261 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>")
 262
 263 (decode
 264 "From: \"\\\"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\\\"\\\\\" <akr@jaist.ac.jp>"
 265 "From: \"\\\"\\\\\" \e$B$"\e(B \"\\\"\\\\\" <akr@jaist.ac.jp>")
 266
 267 (decode
 268 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>"
 269 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>")
 270
 271 (decode
 272 "From: =?ISO-2022-JP?Q?=1B=24BAA=1B=28B?= <akr@jaist.ac.jp>"
 273 "From: \e$BAA\e(B <akr@jaist.ac.jp>")
 274
 275 (decode
 276 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>"
 277 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>")
 278
 279 (decode
 280 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)"
 281 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)")
 282
 283 (encode
 284 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>"
 285 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>")
 286
 287 (decode
 288 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
 289 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>")
 290
 291 (encode
 292 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 293 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
 294 'encode-sticked-comment-as-atom)
 295
 296 (encode
 297 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 298 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)
 299  <akr@jaist.ac.jp>"
 300 'permit-sticked-comment)
 301
 302 (encode
 303 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 304 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)
 305  <akr@jaist.ac.jp>"
 306 'separate-sticked-comment)
 307
 308 (decode
 309 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)
 310  <akr@jaist.ac.jp>"
 311 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 312 'permit-sticked-comment)
 313
 314 (decode
 315 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXAo=?= <akr@jaist.ac.jp>"
 316 "From: \"a\"b\e$B$"\e(Bc\\\" <akr@jaist.ac.jp>")
 317
 318 (encode
 319 "From: "a\"b\e$B$"\e(B\\" <akr@jaist.ac.jp>"
 320 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXAo=?= <akr@jaist.ac.jp>")
 321
 322 (decode
 323 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 324 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 325
 326 (decode
 327 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 328 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 329 'permit-sticked-special)
 330
 331 (encode
 332 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 333 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 334 'permit-sticked-special)
 335
 336 (encode
 337 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 338 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 339 'separate-sticked-special)
 340
 341 (decode
 342 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 343 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 344
 345 (decode
 346 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 347 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 348 'permit-sticked-special)
 349
 350 (encode
 351 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 352 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 353 'permit-sticked-special)
 354
 355 (encode
 356 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 357 "To: <akr@jaist.ac.jp>, =?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
 374 (encode
 375 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
 376 "To: akr@jaist.ac.jp, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 377 'separate-sticked-special)
 378
 379 (decode
 380 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 381 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;")
 382
 383 (decode
 384 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 385 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 386 'permit-sticked-special)
 387
 388 (encode
 389 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 390 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 391 'permit-sticked-special)
 392
 393 (encode
 394 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 395 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= :akr@jaist.ac.jp;"
 396 'separate-sticked-special)
 397
 398 (decode
 399 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 400 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;")
 401
 402 (decode
 403 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 404 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 405 'ignore-76bytes-limit 'permit-sticked-special)
 406
 407 (encode
 408 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 409 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 410 'ignore-76bytes-limit 'permit-sticked-special)
 411
 412 (encode
 413 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 414 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 415  =?ISO-2022-JP?B?GyhC?=<akr@jaist.ac.jp>;"
 416 'zero-characters-encoded-word-hack 'permit-sticked-special)
 417
 418 (encode
 419 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 420 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 421  <akr@jaist.ac.jp>;"
 422 'separate-sticked-special)
 423
 424 (decode
 425 "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>"
 426 "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>")
 427
 428 (decode
 429 "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>"
 430 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 431 'ignore-76bytes-limit 'permit-sticked-special)
 432
 433 (encode
 434 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 435 "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>"
 436 'ignore-76bytes-limit 'permit-sticked-special)
 437
 438 (encode
 439 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 440 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=
 441  =?ISO-2022-JP?B?GyhC?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=
 442  =?ISO-2022-JP?B?GyhC?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
 443 'zero-characters-encoded-word-hack 'permit-sticked-special)
 444
 445 (encode
 446 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 447 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=
 448  <foo@bar>, =?ISO-2022-JP?B?GyRCJCYbKEI=?= <foo@bar>;,
 449  =?ISO-2022-JP?B?GyRCJCgbKEI=?= <foo@bar>"
 450 'separate-sticked-special)
 451
 452 (decode
 453 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 454 "Subject: \e$B$"\e(B")
 455
 456 (decode
 457 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 458 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 459
 460 (decode
 461 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 462 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 463
 464 (decode
 465 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 466 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 467
 468 (decode
 469 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 470 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 471
 472 (decode
 473 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 474 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 475
 476 (decode
 477 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 478 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 479
 480 (decode
 481 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 482 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 483
 484 (decode
 485 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 486 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 487
 488 (decode
 489 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 490 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 491
 492 (decode
 493 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 494 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 495
 496 (decode
 497 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:"
 498 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:")
 499
 500 (decode
 501 "Subject: =?ISO-2022-JP?B??="
 502 "Subject: =?ISO-2022-JP?B??=")
 503
 504 (decode
 505 "Subject: =?ISO-2022-JP?B?DQoNCg==?="
 506 "Subject: ")
 507
 508 (encode
 509 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 510 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=
 511  =?US-ASCII?Q?____________________________________________________________?=
 512  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?=")
 513
 514 (decode
 515 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=
 516  =?US-ASCII?Q?____________________________________________________________?=
 517  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?="
 518 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B")
 519
 520 (encode
 521 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 522 "Subject: =?ISO-2022-JP?B?GyQpQrCkICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICDS3w=="
 523 'ignore-76bytes-limit 'ignore-75bytes-limit)
 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?GyRCJCIbKEI=?="
 531 "Subject:\e$B$"\e(B"
 532 'permit-sticked-special)
 533
 534 (encode
 535 "From: \e.A\eN! <akr@jaist.ac.jp>"\e*B
 536 "From: =?ISO-8859-1?Q?=A1?= <akr@jaist.ac.jp>")
 537
 538 (encode
 539 "From: \"abcdefghijklmnopqrstu\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>"\e*B
 540 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>")
 541
 542 (encode
 543 "From: akr@jaist.ac.jp (abcdefghijklmnopqrst\e.A\eN!\\(\\)\"\\\\)"\e*B
 544 "From: akr@jaist.ac.jp (=?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29\"=5C?=)")
 545
 546 ;----------------------------------------------------------------------------