TESTPAT

   1 ;----------------------------------------------------------------------------
   2 ;-------- This sequece of HYPHEN-MINUS is 76 bytes long. --------------------
   3 ;----------------------------------------------------------------------------
   4
   5 ;;; options:
   6 ;;encode-sticked-comment-as-atom    ; violate the policy preserving structures
   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 the policy preserving absence of space
  12 ;;separate-sticked-special          ; violate the policy preserving absence of space
  13 ;;zero-characters-encoded-word-hack ; violate common sense (very tricky)
  14 ;;quoted-encoded-word              ; violate character sequence semantics
  15 ;;separate-sticked-tokens-for-fold  ; violate the policy preserving absence of space
  16 ;;encode-long-ascii-string-for-fold ; violate the policy preserving US-ASCII string
  17 ;;divide-atom-for-fold             ; violate tne policy preserving absence of space
  18
  19 ;;; test driver
  20
  21 ;;; FLIM or FLAM
  22 '(progn
  23 (require 'mime)
  24 (require 'ew-line)
  25
  26 (if (< max-specpdl-size 1000)
  27   (setq max-specpdl-size 1000))
  28
  29 (defun decode-test (src dsts &rest opts)
  30   (setq src (ew-crlf-to-lf src))
  31   (setq eword-lexical-analyze-cache nil)
  32   (setq eword-decode-sticked-encoded-word
  33     (or (memq 'permit-sticked-comment opts)
  34         (memq 'permit-sticked-special opts)))
  35   (setq eword-decode-quoted-encoded-word nil)
  36   (with-temp-buffer
  37     (insert src "\n" mail-header-separator)
  38     (eword-decode-header 'us-ascii mail-header-separator)
  39     (goto-char (point-min))
  40     (std11-narrow-to-header mail-header-separator)
  41     (std11-field-end)
  42     (let ((result (std11-unfold-string
  43                    (buffer-substring (point-min) (point)))))
  44       (if (member result dsts) t result))))
  45
  46 (defun encode-test (src dsts &rest opts)
  47   (setq eword-lexical-analyze-cache nil)
  48   (setq eword-decode-sticked-encoded-word nil)
  49   (setq eword-decode-quoted-encoded-word nil)
  50   (with-temp-buffer
  51     (insert src "\n" mail-header-separator)
  52     (goto-char (point-min))
  53     (eword-encode-header 'us-ascii)
  54     (goto-char (point-min))
  55     (std11-narrow-to-header mail-header-separator)
  56     (std11-field-end)
  57     (let ((result (buffer-substring (point-min) (point))))
  58       (if (member result dsts) t result))))
  59 )
  60
  61 ;;; EW
  62 (progn
  63 (require 'ew-dec)
  64 (require 'ew-line)
  65
  66 (defun decode-test (src dsts &rest opts)
  67   (let ((ew-decode-quoted-encoded-word nil)
  68         (ew-ignore-75bytes-limit (memq 'ignore-75bytes-limit opts))
  69         (ew-ignore-76bytes-limit (memq 'ignore-76bytes-limit opts))
  70         (ew-permit-sticked-comment (memq 'permit-sticked-comment opts))
  71         (ew-permit-sticked-special (memq 'permit-sticked-special opts)))
  72     (string-match "\\`[^:]*:" src)
  73     (let* ((field-name (substring src
  74                                   (match-beginning 0)
  75                                   (1- (match-end 0))))
  76            (field-body (substring src (match-end 0)))
  77            (result (ew-crlf-unfold
  78                     (concat field-name ":"
  79                             (ew-decode-field field-name field-body)))))
  80       (if (member result dsts) t result))))
  81
  82 (defun encode-test (src dsts &rest opts)
  83   nil)
  84 )
  85
  86 ;;;
  87
  88 (setq decode-succ-count 0)
  89 (setq decode-all-count 0)
  90 (defun decode (src dsts &rest opts)
  91   (if (stringp dsts) (setq dsts (list dsts)))
  92   (setq decode-all-count (1+ decode-all-count))
  93   (let ((res (condition-case nil
  94                (apply 'decode-test src dsts opts)
  95                (error nil))))
  96     (if (eq res t)
  97       (progn
  98         (setq decode-succ-count (1+ decode-succ-count))
  99         (insert "\n'dsucc"))
 100       (insert (format "\n%S\n'dfail" res)))
 101     res))
 102
 103 (setq encode-succ-count 0)
 104 (setq encode-all-count 0)
 105 (defun encode (src dsts &rest opts)
 106   (if (stringp dsts) (setq dsts (list dsts)))
 107   (setq encode-all-count (1+ encode-all-count))
 108   (let ((res (condition-case nil
 109                (apply 'encode-test src dsts opts)
 110                (error nil))))
 111     (if (eq res t)
 112       (progn
 113         (setq encode-succ-count (1+ encode-succ-count))
 114         (insert "\n'esucc"))
 115       (insert (format "\n%S\n'efail" res)))
 116     res))
 117
 118 (defun report ()
 119   (insert
 120     (format "\n\"Decode: %d/%d  Encode: %d/%d  Total: %d/%d\""
 121       decode-succ-count decode-all-count
 122       encode-succ-count encode-all-count
 123       (+ decode-succ-count encode-succ-count)
 124       (+ decode-all-count encode-all-count))))
 125
 126 ;;;start-test
 127
 128 ;;; Section 1: Decoding examples from RFC2047
 129
 130 (decode
 131 "From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>"
 132 "From: Keith Moore <moore@cs.utk.edu>")
 133
 134 (decode
 135 "To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>"
 136 "To: Keld J\e.A\eNxrn Simonsen <keld@dkuug.dk>")\e*B
 137
 138 (decode
 139 "CC: =?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>"
 140 "CC: Andr\e.A\eNi Pirard <PIRARD@vm1.ulg.ac.be>")\e*B
 141
 142 (decode
 143 "Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=\r
 144  =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?="
 145 "Subject: If you can read this you understand the example.")
 146
 147 (decode
 148 "From: =?ISO-8859-1?Q?Olle_J=E4rnefors?= <ojarnef@admin.kth.se>"
 149 "From: Olle J\e.A\eNdrnefors <ojarnef@admin.kth.se>")\e*B
 150
 151 (decode
 152 "From: =?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@nada.kth.se>"
 153 "From: Patrik F\e.A\eNdltstr\eNvm <paf@nada.kth.se>")\e*B
 154
 155 (decode
 156 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>\r
 157         (=?iso-8859-8?b?7eXs+SDv4SDp7Oj08A==?=)"
 158 "From: Nathaniel Borenstein <nsb@thumper.bellcore.com>  (\e.H\eNm\eNe\eNl\eNy \eNo\eNa \eNi\eNl\eNh\eNt\eNp)")\e*B
 159
 160 (decode
 161 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=)"
 162 "From: foo@bar.baz (a)")
 163
 164 (decode
 165 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= b)"
 166 "From: foo@bar.baz (a b)")
 167
 168 (decode
 169 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
 170 "From: foo@bar.baz (ab)")
 171
 172 (decode
 173 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
 174 "From: foo@bar.baz (ab)")
 175
 176 (decode
 177 "From: foo@bar.baz (=?ISO-8859-1?Q?a?=\r
 178         =?ISO-8859-1?Q?b?=)"
 179 "From: foo@bar.baz (ab)")
 180
 181 (decode
 182 "From: foo@bar.baz (=?ISO-8859-1?Q?a_b?=)"
 183 "From: foo@bar.baz (a b)")
 184
 185 (decode
 186 "From: foo@bar.baz (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 187 "From: foo@bar.baz (a b)")
 188
 189 (decode
 190 "Subject: (=?ISO-8859-1?Q?a?=)"
 191 "Subject: (=?ISO-8859-1?Q?a?=)")
 192
 193 (decode
 194 "Subject: (=?ISO-8859-1?Q?a?= b)"
 195 "Subject: (=?ISO-8859-1?Q?a?= b)")
 196
 197 (decode
 198 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)"
 199 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-1?Q?b?=)")
 200
 201 (decode
 202 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)"
 203 "Subject: (=?ISO-8859-1?Q?a?=  =?ISO-8859-1?Q?b?=)")
 204
 205 (decode
 206 "Subject: (=?ISO-8859-1?Q?a?=\r
 207         =?ISO-8859-1?Q?b?=)"
 208 "Subject: (=?ISO-8859-1?Q?a?=   =?ISO-8859-1?Q?b?=)")
 209
 210 (decode
 211 "Subject: (=?ISO-8859-1?Q?a_b?=)"
 212 "Subject: (=?ISO-8859-1?Q?a_b?=)")
 213
 214 (decode
 215 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)"
 216 "Subject: (=?ISO-8859-1?Q?a?= =?ISO-8859-2?Q?_b?=)")
 217
 218 ;;; Section 2: Decoding proper inputs.
 219
 220 (decode
 221 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 222 "From: \e$B$"\e(B <akr@jaist.ac.jp>")
 223
 224 (decode
 225 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 226  <akr@jaist.ac.jp>"
 227 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 228
 229 (decode
 230 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 231  =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 232  <akr@jaist.ac.jp>"
 233 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 234
 235 (decode
 236 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 237         =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 238  <akr@jaist.ac.jp>"
 239 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>")
 240
 241 (decode
 242 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"ja \\\"a\\\"\" <akr@jaist.ac.jp>"
 243 "From: \e$B$"\e(B \"ja \\\"a\\\"\" <akr@jaist.ac.jp>")
 244
 245 (decode
 246 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 247  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 248  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 249 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)")
 250
 251 (decode
 252 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 253 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 254
 255 (decode
 256 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 257 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 258
 259 (decode
 260 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>"
 261 "From: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b <akr@jaist.ac.jp>")
 262
 263 (decode
 264 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>"
 265 "From: \"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\" <akr@jaist.ac.jp>")
 266
 267 (decode
 268 "From: \"\\\"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\\\"\\\\\" <akr@jaist.ac.jp>"
 269 "From: \"\\\"\\\\\" \e$B$"\e(B \"\\\"\\\\\" <akr@jaist.ac.jp>")
 270
 271 (decode
 272 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>"
 273 "From: < =?ISO-2022-JP?B?GyRCJCIbKEI=?= @jaist.ac.jp>")
 274
 275 (decode
 276 "From: =?ISO-2022-JP?Q?=1B=24BAA=1B=28B?= <akr@jaist.ac.jp>"
 277 "From: \e$BAA\e(B <akr@jaist.ac.jp>")
 278
 279 (decode
 280 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>"
 281 "From: =?ISO-2022-JP?Q?=1B$BAA=1B(B?= ) <akr@jaist.ac.jp>")
 282
 283 (decode
 284 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)"
 285 "From: (=?US-ASCII?Q?(?=)foo@bar.baz(=?US-ASCII?Q?))baz@bar.foo(?=)")
 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 (decode
 292 "From: =?US-ASCII?Q?=28?= <akr@jaist.ac.jp>, =?US-ASCII?Q?=29?= <akr@jaist.ac.jp>"
 293 "From: \"(\" <akr@jaist.ac.jp>, \")\" <akr@jaist.ac.jp>"
 294 'ignore-76bytes-limit)
 295
 296 (decode
 297 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= <akr@jaist.ac.jp>"
 298 "From: \"a\\\"b\e$B$"\e(Bc\\\\\" <akr@jaist.ac.jp>")
 299
 300 (decode
 301 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 302 "Subject: \e$B$"\e(B")
 303
 304 (decode
 305 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 306 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 307
 308 (decode
 309 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 310 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 311
 312 (decode
 313 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b"
 314 "Subject: a=?ISO-2022-JP?B?GyRCJCIbKEI=?=b")
 315
 316 (decode
 317 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 318 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 319
 320 (decode
 321 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 322 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 323
 324 (decode
 325 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)"
 326 "Subject: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b)")
 327
 328 (decode
 329 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 330 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 331
 332 (decode
 333 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 334 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 335
 336 (decode
 337 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\""
 338 "Subject: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\"")
 339
 340 (decode
 341 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 342 "Subject: (Re: =?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 343
 344 (decode
 345 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:"
 346 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:")
 347
 348 (decode
 349 "Subject: =?ISO-2022-JP?B??="
 350 "Subject: =?ISO-2022-JP?B??=")
 351
 352 (decode
 353 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a\r
 354  =?ISO-2022-JP?B?GyRCJCQbKEI=?="
 355 "Subject: \e$B$"\e(B a \e$B$$\e(B")
 356
 357 (decode
 358 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=\r
 359  =?US-ASCII?Q?____________________________________________________________?=\r
 360  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?="
 361 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B")
 362
 363 (decode
 364 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>"
 365 "From: \"abcdefghijklmnopqrst\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>")\e*B
 366
 367 (decode
 368 "Subject: ?= =?"
 369 "Subject: ?= =?")
 370
 371 (decode
 372 "Subject: \" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \""
 373 "Subject: \" \e$B$"\e(B \"")
 374
 375 (decode
 376 "From: \"\\\\\" =?ISO-2022-JP?B?GyRCJCIbKEI=?= \"\" <akr@jaist.ac.jp>"
 377 "From: \"\\\\\" \e$B$"\e(B \"\" <akr@jaist.ac.jp>")
 378
 379 (decode
 380 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B_=1B$B$\"=1B(B?="
 381 "Subject: \e$B$"\e(B \e$B$"\e(B")
 382
 383 (decode
 384 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?="
 385 "Subject: =?ISO-2022-JP?Q?=1B$B$\"=1B(B =1B$B$\"=1B(B?=")
 386
 387 (decode
 388 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?="
 389 "Subject: \e$B$"\e(B a \e.H\eN`")\e*B
 390
 391 (decode
 392 "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 393 "Subject: \e.H\eN`\e$BNm\e(B")\e*B
 394
 395 (decode
 396 "Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 397 "Subject: \e.H\eN` \e$BNm\e(B")\e*B
 398
 399 (decode
 400 "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="
 401 "Subject: \e.F\eNC\e$B4X?t\e(B")\e*B
 402
 403 (decode
 404 "Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 405 "Subject: \e.F\eNC\e$B4X?t\e(B")\e*B
 406
 407 (decode
 408 "Subject: =?Shift_JIS?B?gqA=?="
 409 "Subject: \e$B$"\e(B"
 410 'quoted-encoded-word)
 411
 412 (decode
 413 "Subject: =?EUC-JP?B?pKI=?="
 414 "Subject: \e$B$"\e(B"
 415 'quoted-encoded-word)
 416
 417 (decode
 418 "Subject: = =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 419 "Subject: = \e$B$"\e(B")
 420
 421 (decode
 422 "Subject: =? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 423 "Subject: =? \e$B$"\e(B")
 424
 425 (decode
 426 "Subject: =?ISO-2022-JP =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 427 "Subject: =?ISO-2022-JP \e$B$"\e(B")
 428
 429 (decode
 430 "Subject: =?ISO-2022-JP? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 431 "Subject: =?ISO-2022-JP? \e$B$"\e(B")
 432
 433 (decode
 434 "Subject: =?ISO-2022-JP?B =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 435 "Subject: =?ISO-2022-JP?B \e$B$"\e(B")
 436
 437 (decode
 438 "Subject: =?ISO-2022-JP?B? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 439 "Subject: =?ISO-2022-JP?B? \e$B$"\e(B")
 440
 441 (decode
 442 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 443 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI \e$B$"\e(B")
 444
 445 (decode
 446 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 447 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI= \e$B$"\e(B")
 448
 449 (decode
 450 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=? =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 451 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=? \e$B$"\e(B")
 452
 453 (decode
 454 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 455 "Subject: \e$B$"$"\e(B")
 456
 457 (decode
 458 "Subject: ==?ISO-2022-JP?B?GyRCJCIbKEI=?="
 459 "Subject: ==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 460
 461 (decode
 462 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=="
 463 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==")
 464
 465 (decode
 466 "From: akr@jaist.ac.jp (\\=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 467 "From: akr@jaist.ac.jp (\\=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 468
 469 (decode
 470 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
 471 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test")
 472
 473 (decode
 474 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
 475 "=?ISO-2022-JP?B?GyRCJCIbKEI=?=: test"
 476 'permit-sticked-special)
 477
 478 ;;; Section 3: Decoding melancholic inputs.
 479
 480 (decode
 481 "From:=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 482 "From:\e$B$"\e(B <akr@jaist.ac.jp>")
 483
 484 (decode
 485 "From: akr@jaist.ac.jp\r
 486  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\\a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 487 "From: akr@jaist.ac.jp (\e$B$"\e(B\\a\e$B$$\e(B)")
 488
 489 (decode
 490 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 491 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 492
 493 (decode
 494 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 495 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 496
 497 (decode
 498 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 499 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>")
 500
 501 (decode
 502 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 503 "From: (a)\e$B$"\e(B <akr@jaist.ac.jp>"
 504 'permit-sticked-comment)
 505
 506 (decode
 507 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 508 "From: \e$B$"\e(B(b) <akr@jaist.ac.jp>"
 509 'permit-sticked-comment)
 510
 511 (decode
 512 "From: (a)=?ISO-2022-JP?B?GyRCJCIbKEI=?=(b) <akr@jaist.ac.jp>"
 513 "From: (a)\e$B$"\e(B(b) <akr@jaist.ac.jp>"
 514 'permit-sticked-comment)
 515
 516 (decode
 517 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
 518 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 519
 520 (decode
 521 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 522 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 523
 524 (decode
 525 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>"
 526 "From: \"a\"=?ISO-2022-JP?B?GyRCJCIbKEI=?=\"b\" <akr@jaist.ac.jp>")
 527
 528 (decode
 529 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
 530  <akr@jaist.ac.jp>"
 531 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
 532 'permit-sticked-comment)
 533
 534 (decode
 535 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 536 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 537
 538 (decode
 539 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 540 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
 541 'permit-sticked-special)
 542
 543 (decode
 544 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 545 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 546
 547 (decode
 548 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 549 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
 550 'permit-sticked-special)
 551
 552 (decode
 553 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 554 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>")
 555
 556 (decode
 557 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
 558 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
 559 'permit-sticked-special)
 560
 561 (decode
 562 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 563 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;")
 564
 565 (decode
 566 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
 567 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
 568 'permit-sticked-special)
 569
 570 (decode
 571 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 572 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;")
 573
 574 (decode
 575 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
 576 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
 577 'ignore-76bytes-limit 'permit-sticked-special)
 578
 579 (decode
 580 "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>"
 581 "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>")
 582
 583 (decode
 584 "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>"
 585 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
 586 'ignore-76bytes-limit 'permit-sticked-special)
 587
 588 (decode
 589 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 590 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 591
 592 (decode
 593 "Subject:=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 594 "Subject:\e$B$"\e(B"
 595 'permit-sticked-special)
 596
 597 ;;; Section 4: Decoding invalid inputs.
 598
 599 (decode
 600 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
 601  <akr@jaist.ac.jp>"
 602 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCQbKEI=?= <akr@jaist.ac.jp>")
 603
 604 (decode
 605 "From: akr@jaist.ac.jp\r
 606  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)"
 607 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=a=?ISO-2022-JP?B?GyRCJCQbKEI=?=)")
 608
 609 (decode
 610 "From: akr@jaist.ac.jp\r
 611  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 612 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)")
 613
 614 (decode
 615 "From: akr@jaist.ac.jp\r
 616  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
 617 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 618 'ignore-76bytes-limit)
 619
 620 (decode
 621 "Subject: =?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 622 "Subject: =?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 623
 624 (decode
 625 "Subject: =?ISO-2022-JP=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 626 "Subject: =?ISO-2022-JP=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 627
 628 (decode
 629 "Subject: =?ISO-2022-JP?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 630 "Subject: =?ISO-2022-JP?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 631
 632 (decode
 633 "Subject: =?ISO-2022-JP?B=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 634 "Subject: =?ISO-2022-JP?B=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 635
 636 (decode
 637 "Subject: =?ISO-2022-JP?B?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 638 "Subject: =?ISO-2022-JP?B?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 639
 640 (decode
 641 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 642 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 643
 644 (decode
 645 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI==?ISO-2022-JP?B?GyRCJCIbKEI=?="
 646 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 647
 648 (decode
 649 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=?ISO-2022-JP?B?GyRCJCIbKEI=?="
 650 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?=?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 651
 652 (decode
 653 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCIbKEI=?="
 654 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?==?ISO-2022-JP?B?GyRCJCIbKEI=?=")
 655
 656 (decode
 657 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI?="
 658 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI?=")
 659
 660 (decode
 661 "Subject: =?ISO-2022-JP?B?GyRCNFg-dBsoQg==?="
 662 "Subject: =?ISO-2022-JP?B?GyRCNFg-dBsoQg==?=")
 663
 664 (decode
 665 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= =?= =?ISO-2022-JP?B?GyRCJCIbKEI=?="
 666 "Subject: \e$B$"\e(B=?=\e$B$"\e(B")
 667
 668 ;;; Section 5: Encoding proper inputs.
 669
 670 (encode
 671 "From: \e$B$"\e(B <akr@jaist.ac.jp>"
 672 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>")
 673
 674 (encode
 675 "From: \e$B$"$$\e(B <akr@jaist.ac.jp>"
 676 "From: =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?= <akr@jaist.ac.jp>")
 677
 678 (encode
 679 "From: \e$B$"\e(B \e$B$$\e(B <akr@jaist.ac.jp>"
 680 "From: =?ISO-2022-JP?B?GyRCJCIbKEIgGyRCJCQbKEI=?= <akr@jaist.ac.jp>")
 681
 682 (encode
 683 "From: \e.A\eN! \eN! <akr@jaist.ac.jp>"\e*B
 684 "From: =?ISO-8859-1?Q?=A1_=A1?= <akr@jaist.ac.jp>")
 685
 686 (encode
 687 "From: \"\e$B$"\e(B(\e$B$"\e(B)\" <akr@jaist.ac.jp>"
 688 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>")
 689
 690 (encode
 691 "From: \"a\\\"b\e$B$"\e(Bc\\\\\" <akr@jaist.ac.jp>"
 692 "From: =?ISO-2022-JP?B?YSJiGyRCJCIbKEJjXA==?= <akr@jaist.ac.jp>")
 693
 694 (encode
 695 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 696 "Subject: =?ISO-2022-JP?B?GyRCMCQbKEIgICAgICAgICAgICAgICAgICAgICAgICAgICAg?=\r
 697  =?US-ASCII?Q?____________________________________________________________?=\r
 698  =?ISO-2022-JP?B?ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIBskQlJfGyhC?=")
 699
 700 (encode
 701 "Subject: \e$B0$\e(B                                                                                                                          \e$BR_\e(B"
 702 "Subject: =?ISO-2022-JP?B?GyQpQrCkICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICDS3w=="
 703 'ignore-76bytes-limit 'ignore-75bytes-limit)
 704
 705 (encode
 706 "From: \e.A\eN! <akr@jaist.ac.jp>"\e*B
 707 "From: =?ISO-8859-1?Q?=A1?= <akr@jaist.ac.jp>")
 708
 709 (encode
 710 "From: \"abcdefghijklmnopqrst\e.A\eN!()\\\"\\\\\" <akr@jaist.ac.jp>"\e*B
 711 "From: =?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29=22=5C?= <akr@jaist.ac.jp>")
 712
 713 (encode
 714 "From: akr@jaist.ac.jp (abcdefghijklmnopqrst\e.A\eN!\\(\\)\"\\\\)"\e*B
 715 "From: akr@jaist.ac.jp (=?ISO-8859-1?Q?abcdefghijklmnopqrst=A1=28=29\"=5C?=)")
 716
 717 (encode
 718 "Subject: \e$B$"\e(B a \e.H\eN`"\e*B
 719 "Subject: =?ISO-2022-JP?B?GyRCJCIbKEI=?= a =?ISO-8859-8?Q?=E0?=")
 720
 721 (encode
 722 "Subject: \e.H\eN`\e$BNm\e(B"\e*B
 723 "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?GyRCTm0bKEI=?=")
 724
 725 (encode
 726 "Subject: \e.H\eN` \e$BNm\e(B"\e*B
 727 '("Subject: =?ISO-8859-8?Q?=E0_?= =?ISO-2022-JP?B?GyRCTm0bKEI=?="
 728   "Subject: =?ISO-8859-8?Q?=E0?= =?ISO-2022-JP?B?IBskQk5tGyhC?="))
 729
 730 (encode
 731 "Subject: \e.F\eNC\e$B4X?t\e(B"\e*B
 732 '("Subject: =?ISO-8859-7?Q?=C3?= =?ISO-2022-JP?B?GyRCNFg/dBsoQg==?="
 733   "Subject: =?ISO-2022-JP-2?B?Gy5GG05DGyRCNFg/dBsoQg==?="))
 734
 735 (encode
 736 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 737 "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 738  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 739
 740 (encode
 741 "From: aaaaaaaaaaaaaaaaaaaaa (\e$B$"$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 742 '("From: aaaaaaaaaaaaaaaaaaaaa
 743  (=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 744   "From: aaaaaaaaaaaaaaaaaaaaa (=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 745  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"))
 746
 747 (encode
 748 "From: aaaaaaaaaaaaaaaaaaaaa( \e$B$"$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 749 '("From: aaaaaaaaaaaaaaaaaaaaa(
 750  =?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 751   "From: aaaaaaaaaaaaaaaaaaaaa( =?ISO-2022-JP?B?GyRCJCIbKEI=?=
 752  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"))
 753
 754 (encode
 755 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"$$\e(B )aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 756 '("From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=
 757  )aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 758   "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEI=?=
 759  =?ISO-2022-JP?B?GyRCJCQbKEI=?= )aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"))
 760
 761 (encode
 762 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"$$\e(B) aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 763 "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIkJBsoQg==?=)\r
 764  aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 765
 766 (encode
 767 "From: aaaaaaaaaaaaaaaaaaaaa(\e$B$"\e(B \e$B$$\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 768 "From: aaaaaaaaaaaaaaaaaaaaa(=?ISO-2022-JP?B?GyRCJCIbKEIgCg==?=\r
 769  =?ISO-2022-JP?B?GyRCJCQbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 770
 771 (encode
 772 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 773 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>")
 774
 775 (encode
 776 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 777 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaa\r
 778  <akr@jaist.ac.jp>")
 779
 780 (encode
 781 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 782 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 783  <akr@jaist.ac.jp>")
 784
 785 (encode
 786 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 787 "From:\r
 788  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 789  <akr@jaist.ac.jp>")
 790
 791 (encode
 792 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 793 "From:\r
 794  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 795  <akr@jaist.ac.jp>")
 796
 797 (encode
 798 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 799 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 800  =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 801  <akr@jaist.ac.jp>"
 802 'zero-characters-encoded-word-hack)
 803
 804 (encode
 805 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 806 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 807  =?ISO-2022-JP?B?GyhC?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 808  <akr@jaist.ac.jp>"
 809 'zero-characters-encoded-word-hack)
 810
 811 (encode
 812 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 813 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
 814  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 815 'separate-sticked-tokens-for-fold)
 816
 817 (encode
 818 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 819 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaa?=\r
 820  =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?= <akr@jaist.ac.jp>"
 821 'encode-long-ascii-string-for-fold 'permit-sticked-special)
 822
 823 (encode
 824 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 825 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 826  aaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 827 'divide-atom-for-fold)
 828
 829 (encode
 830 "From: (\e$B$"\e(B)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 831 '("From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa <akr@jaist.ac.jp>"
 832   "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
 833  <akr@jaist.ac.jp>")
 834 'ignore-76bytes-limit)
 835
 836 (encode
 837 "From: aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa(\e$B$"\e(B)aa <akr@jaist.ac.jp>"
 838 "From: =?US-ASCII?Q?aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa?=\r
 839  =?US-ASCII?Q?a?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aa <akr@jaist.ac.jp>"
 840 'encode-long-ascii-string-for-fold)
 841
 842 (encode
 843 "From: \e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa(\e$B$"\e(B)aa <akr@jaist.ac.jp>"
 844 "From: =?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ==?=\r
 845  =?US-ASCII?Q?aaaaaaaaaaaaaaa?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)aa"
 846 'encode-long-ascii-string-for-fold)
 847
 848 (encode
 849 "From: (\e$B$"\e(B) <akr@jaist.ac.jp>"
 850 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=) <akr@jaist.ac.jp>")
 851
 852 (encode
 853 "From: ((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 854 "From: ((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 855  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))\r
 856  <akr@jaist.ac.jp>"
 857 'zero-characters-encoded-word-hack)
 858
 859 (encode
 860 "From: (((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 861 "From: (((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 862  =?ISO-2022-JP?B?GyRCJCIbKEI=?=)))))))))))))))))))))))))))))))))))))))))\r
 863  <akr@jaist.ac.jp>"
 864 'zero-characters-encoded-word-hack)
 865
 866 (encode
 867 "From: ((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 868 "From: ((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 869  =?ISO-2022-JP?B?GyRCJCIbKEI=?=))))))))))))))))))))))))))))))))))))))))))))))\r
 870  <akr@jaist.ac.jp>"
 871 'zero-characters-encoded-word-hack)
 872
 873 (encode
 874 "From: (((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 875 "From: (((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 876  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 877  =?ISO-2022-JP?B?GyhC?=)))))))))))))))))))))))))))))))))))))))))))))))\r
 878  <akr@jaist.ac.jp>"
 879 'zero-characters-encoded-word-hack)
 880
 881 (encode
 882 "From: ((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 883 "From:\r
 884  ((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 885  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 886  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))\r
 887  <akr@jaist.ac.jp>"
 888 'zero-characters-encoded-word-hack)
 889
 890 (encode
 891 "From: ((((((((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 892 "From:\r
 893  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 894  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 895  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
 896  <akr@jaist.ac.jp>"
 897 'zero-characters-encoded-word-hack)
 898
 899 (encode
 900 "From: (((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 901 "From:\r
 902  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 903  =?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 904  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
 905  <akr@jaist.ac.jp>"
 906 'zero-characters-encoded-word-hack)
 907
 908 (encode
 909 "From: (((((((((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B))))))))))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 910 "From:\r
 911  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 912  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)=?ISO-2022-JP?B?GyhC?=\r
 913  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))))))))))))))))))))))))\r
 914  <akr@jaist.ac.jp>"
 915 'zero-characters-encoded-word-hack)
 916
 917 (encode
 918 "From: ((((((((((((((((((((((((((((((((((((((((((((((((((((((((\e$B$"\e(B)))))))))))))))))))))))))))))))))))))))))))))))))))))))) <akr@jaist.ac.jp>"
 919 "From:\r
 920  ((((((((((((((((((((((((((((((((((((((((((((((((((((((=?ISO-2022-JP?B?GyhC?=\r
 921  =?ISO-2022-JP?B?GyhC?=((=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 922  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))))))))))=?ISO-2022-JP?B?GyhC?=\r
 923  =?ISO-2022-JP?B?GyhC?=))))))))))))))))))))))))\r
 924  <akr@jaist.ac.jp>"
 925 'zero-characters-encoded-word-hack)
 926
 927 (encode
 928 "From: ()(\e$B$"\e(B)() <akr@jaist.ac.jp>"
 929 "From: ()(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)() <akr@jaist.ac.jp>")
 930
 931 (encode
 932 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 933 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)()()()()()()()()()()()()()()()()()()()\r
 934   <akr@jaist.ac.jp>")
 935
 936 (encode
 937 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 938 "From:\r
 939  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)()()()()()()()()()()()()()()()()()()()()()()\r
 940   <akr@jaist.ac.jp>")
 941
 942 (encode
 943 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 944 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 945  =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()()()()()()()()()()()()()()\r
 946   <akr@jaist.ac.jp>"
 947 'zero-characters-encoded-word-hack)
 948
 949 (encode
 950 "From: (\e$B$"\e(B)()()()()()()()()()()()()()()()()()()()()()()()()()()() <akr@jaist.ac.jp>"
 951 "From: (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 952  =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()()()()()()(=?ISO-2022-JP?B?GyhC?=\r
 953  =?ISO-2022-JP?B?GyhC?=)()()()()()()()()()()() <akr@jaist.ac.jp>"
 954 'zero-characters-encoded-word-hack)
 955
 956 (encode
 957 "To: l@d (\e$B$"\e(B aaa)(\e$B$"\e(B)"
 958 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?= aaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 959
 960 (encode
 961 "To: l@d (\e$B$"\e(B aaaa)(\e$B$"\e(B)"
 962 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 963  aaaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 964
 965 (encode
 966 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(\e$B$"\e(B)"
 967 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 968  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 969
 970 (encode
 971 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)(\e$B$"\e(B)"
 972 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE=?=\r
 973  =?US-ASCII?Q?aaaaaaaaaaaaaaaaaa?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 974 'encode-long-ascii-string-for-fold)
 975
 976 (encode
 977 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa()\e$B$"\e(B)"
 978 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEIgYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWE=?=\r
 979  =?US-ASCII?Q?aaaaaaaaaaaaaaaaaa?=()=?ISO-2022-JP?B?GyRCJCIbKEI=?=)"
 980 'encode-long-ascii-string-for-fold)
 981
 982 (encode
 983 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa \e$B$"\e(B)(\e$B$"\e(B)"
 984 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?= aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 985  =?ISO-2022-JP?B?GyRCJCIbKEI=?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 986
 987 (encode
 988 "To: l@d (\e$B$"\e(B aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa \e$B$"\e(B)(\e$B$"\e(B)"
 989 "To: l@d (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
 990  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\r
 991  =?ISO-2022-JP?B?GyRCJCIbKEI=?=)(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)")
 992
 993 ;----------------------------------------------------------------------------
 994
 995 ;;; Section 6: Encoding melancholic inputs.
 996
 997 (encode
 998 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
 999 "From: akr@jaist.ac.jp\r
1000  (=?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
1001 'ignore-76bytes-limit)
1002
1003 (encode
1004 "From: akr@jaist.ac.jp (\e$B$"\e(B(\e$B$$\e(B)\e$B$&\e(B)"
1005 "From: akr@jaist.ac.jp (=?ISO-2022-JP?B?GyRCJCIbKEI=?=\r
1006  =?ISO-2022-JP?B?GyhC?=(=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1007  =?ISO-2022-JP?B?GyhC?=)=?ISO-2022-JP?B?GyRCJCYbKEI=?=)"
1008 'zero-characters-encoded-word-hack)
1009
1010 (encode
1011 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
1012 "From: =?ISO-2022-JP?B?GyRCJCIbKEIoGyRCJCIbKEIp?= <akr@jaist.ac.jp>"
1013 'encode-sticked-comment-as-atom)
1014
1015 (encode
1016 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
1017 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?=(=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
1018  <akr@jaist.ac.jp>"
1019 'permit-sticked-comment)
1020
1021 (encode
1022 "From: \e$B$"\e(B(\e$B$"\e(B) <akr@jaist.ac.jp>"
1023 "From: =?ISO-2022-JP?B?GyRCJCIbKEI=?= (=?ISO-2022-JP?B?GyRCJCIbKEI=?=)\r
1024  <akr@jaist.ac.jp>"
1025 'separate-sticked-comment)
1026
1027 (encode
1028 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
1029 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
1030 'permit-sticked-special)
1031
1032 (encode
1033 "To: \e$B$"\e(B<akr@jaist.ac.jp>"
1034 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
1035 'separate-sticked-special)
1036
1037 (encode
1038 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
1039 "To: <akr@jaist.ac.jp>,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
1040 'permit-sticked-special)
1041
1042 (encode
1043 "To: <akr@jaist.ac.jp>,\e$B$"\e(B<akr@jaist.ac.jp>"
1044 "To: <akr@jaist.ac.jp>, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
1045 'separate-sticked-special)
1046
1047 (encode
1048 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
1049 "To: akr@jaist.ac.jp,=?ISO-2022-JP?B?GyRCJCIbKEI=?=<akr@jaist.ac.jp>"
1050 'permit-sticked-special)
1051
1052 (encode
1053 "To: akr@jaist.ac.jp,\e$B$"\e(B<akr@jaist.ac.jp>"
1054 "To: akr@jaist.ac.jp, =?ISO-2022-JP?B?GyRCJCIbKEI=?= <akr@jaist.ac.jp>"
1055 'separate-sticked-special)
1056
1057 (encode
1058 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
1059 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:akr@jaist.ac.jp;"
1060 'permit-sticked-special)
1061
1062 (encode
1063 "To: \e$B$"\e(B:akr@jaist.ac.jp;"
1064 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= :akr@jaist.ac.jp;"
1065 'separate-sticked-special)
1066
1067 (encode
1068 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
1069 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=<akr@jaist.ac.jp>;"
1070 'ignore-76bytes-limit 'permit-sticked-special)
1071
1072 (encode
1073 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
1074 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1075  =?ISO-2022-JP?B?GyhC?=<akr@jaist.ac.jp>;"
1076 'zero-characters-encoded-word-hack 'permit-sticked-special)
1077
1078 (encode
1079 "To: \e$B$"\e(B:\e$B$$\e(B<akr@jaist.ac.jp>;"
1080 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1081  <akr@jaist.ac.jp>;"
1082 'separate-sticked-special)
1083
1084 (encode
1085 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
1086 "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>"
1087 'ignore-76bytes-limit 'permit-sticked-special)
1088
1089 (encode
1090 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
1091 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?=:=?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1092  =?ISO-2022-JP?B?GyhC?=<foo@bar>,=?ISO-2022-JP?B?GyRCJCYbKEI=?=\r
1093  =?ISO-2022-JP?B?GyhC?=<foo@bar>;,=?ISO-2022-JP?B?GyRCJCgbKEI=?=<foo@bar>"
1094 'zero-characters-encoded-word-hack 'permit-sticked-special)
1095
1096 (encode
1097 "To: \e$B$"\e(B:\e$B$$\e(B<foo@bar>,\e$B$&\e(B<foo@bar>;,\e$B$(\e(B<foo@bar>"
1098 "To: =?ISO-2022-JP?B?GyRCJCIbKEI=?= : =?ISO-2022-JP?B?GyRCJCQbKEI=?=\r
1099  <foo@bar>, =?ISO-2022-JP?B?GyRCJCYbKEI=?= <foo@bar>;,\r
1100  =?ISO-2022-JP?B?GyRCJCgbKEI=?= <foo@bar>"
1101 'separate-sticked-special)
1102
1103 ;;; Section 7: Using quoted-encoded-words.
1104 ;;
1105 ;; quoted-encoded-word \e$BI=8=\e(B
1106 ;;
1107 ;; 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
1108 ;; \e$B=PNO$7$J$1$l$P$J$i$J$$$3$H$,$"$k!#\e(B
1109 ;;
1110 ;; 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
1111 ;;  =?unknown-charset?known-encoding?some-encoded-text?=
1112 ;;  =?known-charset?unknown-encoding?some-encoded-text?=
1113 ;;  =?unknown-charset?unknown-encoding?some-encoded-text?=
1114 ;;
1115 ;; 2. \e$B%G%3!<%I$G$-$F$bFbMF$,7uF]$9$.$k$H$-!#\e(B
1116 ;;  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
1117 ;; \e$B7k2L$rKd$a9~$`$N$O4m81$9$.$k!#\e(B
1118 ;;
1119 ;; \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
1120 ;; \e$B$l$P$J$i$J$$$3$H$b$"$k!#\e(B
1121 ;;
1122 ;;  =?US-ASCII?Q?=3D=3FUS-ASCII=3FQ=3Ftext=3F=3D?=
1123 ;;
1124 ;; \e$B%G%3!<%@$,C1$J$kJ8;zNs$r=PNO$9$k>l9g!"C1=c$K$d$k$H\e(B encoded-word \e$B$=$N$b$N$H\e(B
1125 ;; encoded-word \e$B$N$h$&$K$_$($kJ8;zNs$r6hJL$G$-$J$$!#\e(B
1126 ;; \e$B$3$3$G$OJ8;zNsCf$G$=$l$i$r3N<B$K6hJL$7$FI=8=$9$kJ}K!$r<($9!#\e(B
1127 ;;
1128 ;; rule 1: \e$BJ8;zNsCf$G\e(B =?charset?encoding?text?= \e$B$H$$$&%Q%?!<%s$K\e(B
1129 ;;  \e$B%^%C%A$7$J$$ItJ,$O$=$NItJ,$N$^$^$NFbMF$rI=$9!#\e(B
1130 ;;
1131 ;; rule 2: \e$BJ8;zNsCf$G\e(B =?charset?encoding?text?= \e$B$H$$$&%Q%?!<%s$K\e(B
1132 ;;  \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
1133 ;;  \e$B2r<a$rJQ$($k!#\e(B
1134 ;;
1135 ;;  \e$B6v?t$N>l9g\e(B(0, 2, 4, ...): charset \e$B$N@hF,$N\e(B + \e$B$N?t$rH>J,$K$7$?J8;zNs\e(B
1136 ;;  \e$B4q?t$N>l9g\e(B(1, 3, 5, ...): charset \e$B$N@hF,$N\e(B + \e$B$N?t$rH>J,\e(B(\e$B>.?tE@0J2<\e(B
1137 ;;   \e$B@Z<N$F\e(B)\e$B$K$7$F!"$=$l$r\e(B encoded-word \e$B$H;W$C$F%G%3!<%I$7$?J8;zNs!#\e(B
1138 ;;
1139 ;; NOTE: + \e$B$r\e(B quoted-encoded-word \e$BI=8=$N\e(B quote \e$BJ8;z$H8F$V!#\e(B
1140 ;;
1141 ;; 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
1142 ;;  \e$BEPO?$5$l$F$$$J$$$N$G!"$=$l$i$N\e(B charset \e$B$r;H$C$?\e(B
1143 ;;  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
1144 ;;
1145 ;;  =?US-ASCII?Q?abcdef?= \e$B$H$$$&\e(Bencoded-word : =?+US-ASCII?Q?abcdef?=
1146 ;;
1147 ;;  =?US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B        : =?US-ASCII?Q?abcdef?=
1148 ;;  =?+US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B       : =?++US-ASCII?Q?abcdef?=
1149 ;;  =?++US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B     : =?++++US-ASCII?Q?abcdef?=
1150 ;;  =?+++US-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B    : =?++++++US-ASCII?Q?abcdef?=
1151 ;;  =?US-ASCII+?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B      : =?US-ASCII+?Q?abcdef?=
1152 ;;  =?U+S-ASCII?Q?abcdef?= \e$B$H$$$&J8;zNs\e(B      : =?U+S-ASCII?Q?abcdef?=
1153 ;;
1154 ;; NOTE: encoded-word \e$B$K8+$($kJ8;zNs$G\e(B + \e$B$,G\A}$5$l$k$N$O\e(B charset \e$B$N\e(B
1155 ;;  \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
1156 ;;  \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
1157 ;;
1158 ;; 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
1159 ;;   \e$BJ8;zNs$rC1=c$KO"7k$7$?J8;zNs$H$9$k!#\e(B
1160 ;;
1161 ;; 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
1162 ;;  encoded-word \e$B$O\e(B 75bytes \e$B0J2<$G$J$1$l$P$J$i$J$$$H$+!"\e(B
1163 ;;  encoded-word \e$B$,4^$^$l$k9T$O\e(B 76bytes \e$B0J2<$G$J$1$l$P$J$i$J$$$J$I$H$$$&\e(B
1164 ;;  \e$B5,Ls$,$"$k$,!"\e(Bquoted-encoded-word \e$BI=8=$G$O$=$l$i$O:NMQ$7$J$$!#\e(B
1165 ;;  \e$BC1=c$K\e(B encoded-word \e$BFbIt$NJ8K!$@$1$rMxMQ$9$k!#\e(B
1166 ;;  (\e$BK\<AE*$K$O0[$J$kJ8K!$r:NMQ$9$k$3$H$b2DG=$G$"$k$,!"\e(BRFC2047 \e$B$K7I0U$r\e(B
1167 ;;  \e$BI=$7$F\e(B encoded-word \e$B$NJ8K!$r:NMQ$9$k!#\e(B)
1168 ;;
1169 ;; NOTE: quoted-encoded-word \e$BI=8=$7$?J8;zNs$NO"7k$O0BA4$G$O$J$$!#\e(B
1170 ;;  =?+US-ASCII?Q?ab \e$B$H\e(B cd?= \e$B$H$$$&\e(B quoted-encoded-word \e$BI=8=$7$?J8;zNs$O\e(B
1171 ;;  \e$B$=$l$>$l$=$NJ8;zNs$=$N$b$N$rI=8=$9$k$,!"$=$l$i$rO"7k$7$?J8;zNs\e(B
1172 ;;  =?+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
1173 ;;  \e$B$=$l$>$l$NFbMF$NO"7k$H$O$J$i$J$$!#\e(B
1174 ;;
1175 ;;  \e$B$3$l$O$H$/$K\e(B Non ASCII \e$B3HD%\e(B RFC822 \e$B$NCf$K\e(B quoted-encoded-word \e$BI=8=$r\e(B
1176 ;;  \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
1177 ;;  quoted-encoded-word \e$BI=8=$H$O$J$i$J$$$+$bCN$l$J$$!#\e(B)
1178
1179 (decode
1180 "Subject: =?Unknown-Charset?B?gqA=?="
1181 "Subject: =?+Unknown-Charset?B?gqA=?="
1182 'quoted-encoded-word)
1183
1184 (decode
1185 "Subject: =?US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?="
1186 "Subject: =?+US-ASCII?G?H4sIACqUszUAA8tIzcnJBwCGphA2BQAAAA==?="
1187 'quoted-encoded-word)
1188
1189 (decode
1190 "Subject: =?US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?="
1191 "Subject: =?+US-ASCII?Unknown-Encoding?H4sIAGOUszUAAwtyczYyMDEHAEpvqpIHAAAA?="
1192 'quoted-encoded-word)
1193
1194 (decode
1195 "Subject: =?ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?=\r
1196  =?ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?="
1197 "Subject: =?+ISO-2022-JP?G?H4sIAGiTszUAA5NWcVIBAhMtaQ0nAGLSaeEMAAAA?==?+ISO-2022-JP?G?H4sIAH6TszUAA5NWcVIxV3FTyVbxldZwAgAuIikKDgAAAA==?="
1198 'quoted-encoded-word)
1199
1200 (decode
1201 "Subject: =?Unknown-Charset?B?gqA=?= =?Unknown-Charset?B?gqA=?="
1202 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1203 'quoted-encoded-word)
1204
1205 (decode
1206 "Subject: =?Unknown-Charset?B?gqA=?=  =?Unknown-Charset?B?gqA=?="
1207 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1208 'quoted-encoded-word)
1209
1210 (decode
1211 "Subject: =?Unknown-Charset?B?gqA=?=\r
1212  =?Unknown-Charset?B?gqA=?="
1213 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1214 'quoted-encoded-word)
1215
1216 (decode
1217 "Subject: =?Unknown-Charset?B?gqA=?=\r
1218         =?Unknown-Charset?B?gqA=?="
1219 "Subject: =?+Unknown-Charset?B?gqA=?==?+Unknown-Charset?B?gqA=?="
1220 'quoted-encoded-word)
1221
1222 (decode
1223 "Subject: a=?Unknown-Charset?B?gqA=?="
1224 "Subject: a=?Unknown-Charset?B?gqA=?="
1225 'quoted-encoded-word)
1226
1227 (decode
1228 "Subject: =?Unknown-Charset?B?gqA=?=b"
1229 "Subject: =?Unknown-Charset?B?gqA=?=b"
1230 'quoted-encoded-word)
1231
1232 (decode
1233 "Subject: a=?Unknown-Charset?B?gqA=?=b"
1234 "Subject: a=?Unknown-Charset?B?gqA=?=b"
1235 'quoted-encoded-word)
1236
1237 (decode
1238 "Subject: a =?Unknown-Charset?B?gqA=?= b"
1239 "Subject: a =?+Unknown-Charset?B?gqA=?= b"
1240 'quoted-encoded-word)
1241
1242 (decode
1243 "Subject: =?ISO-2022-JP?B?DQoNCg==?="
1244 "Subject: =?+US-ASCII?Q?=0D=0A=0D=0A?="
1245 'quoted-encoded-word)
1246
1247 (decode
1248 "Subject: =?US-ASCII?Q?a=0D=0A_b?="
1249 "Subject: a b"
1250 'quoted-encoded-word)
1251
1252 (decode
1253 "Subject: =?US-ASCII?Q?a=0D=0Ab?="
1254 "Subject: a=?+US-ASCII?Q?=0D=0A?=b"
1255 'quoted-encoded-word)
1256
1257 ;;;end-test
1258
1259 (report)
1260
1261 ;----------------------------------------------------------------------------