GOOF----LE-8-2.0ˆ]L4hÕ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gscripts¤ g read-rfc822¤ ¤ gfilenameS¤ fscripts/read-rfc822.scm¤ gimportsS¤ gice-9¤ gregex¤   ¤ ¤ grdelim¤  ¤ ¤ ¤ gexportsS¤ gread-rfc822-silently¤ ¤ g autoloadsS¤ gsrfi¤ gsrfi-13¤ ¤ g string-join¤ ¤ ¤ gset-current-module¤ ¤ ¤ !g%include-in-guild-list¤ "fValidate an RFC822-style file.¤ #g%summary¤ $g make-regexp¤ %f^From ¤ &g from-line-rx¤ 'f^([^:]+):[ ]*¤ (gheader-name-rx¤ )f^[ ]+¤ *gheader-cont-rx¤ +goption¤ ,g eof-object?¤ -greverse¤ .g read-line¤ /g regexp-exec¤ 0gfor-each¤ 1g unread-char¤ 2g string->list¤ 3g drain-message¤ 4g match:suffix¤ 5gstring->symbol¤ 6gmatch:substring¤ 7g substring¤ 8g match:end¤ 9f ¤ :g string-null?¤ ;gfrom¤ gbody¤ ?f ¤ @gsuffix¤ Agerror¤ Bfbad component:¤ Cg parse-message¤ Dgformat¤ EfFrom ~A ¤ Ff~A: ~A ¤ Gf ~A¤ Hgdisplay-rfc822¤ Ig open-file¤ Jg OPEN_READ¤ Kgmain¤C5h8 ]4   5 4 >"G!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01hb]L6Zgc  gfilenamefscripts/read-rfc822.scmŒ A ŒŒ B ŒŒ  C2 hˆC]"p45$6"45Œ"ÿÿ×$=45$,4O 44 55Œ>"G6"ÿÿ©"ÿÿ¥45"ÿÿ€;gport  †gline  vgacc   vgfilenamefscripts/read-rfc822.scmŒ < ŒŒ  = ŒŒ  > ŒŒ  > ŒŒ  ? ŒŒ  G ŒŒ ' G "ŒŒ / G ŒŒ / > ŒŒ 6 @ ŒŒ B @ ŒŒ C A ŒŒ O D ŒŒ R D $ŒŒ Z D ŒŒ [ C ŒŒ ` A ŒŒ n E ŒŒ v = ŒŒ w = ŒŒ ~ = *ŒŒ † = ŒŒ  † gnameg drain-messageŒC3R+4/&.-/(56789 hX])454544 5544455ŽŒ 5ŒMŒNCygreversed-hlines  Qghlines Qgfirst   Qgm   Qgname  ( Qgdata  C Qgfilenamefscripts/read-rfc822.scmŒ P ŒŒ  Q 'ŒŒ Q ŒŒ  R &ŒŒ  Q ŒŒ  S "ŒŒ  Q ŒŒ  T %ŒŒ  T 5ŒŒ ( T %ŒŒ ( Q ŒŒ + U %ŒŒ . V ,ŒŒ 3 V =ŒŒ ; V ,ŒŒ > W ,ŒŒ ? V &ŒŒ A X &ŒŒ C U %ŒŒ C Q ŒŒ J Y (ŒŒ O Y ŒŒ  Q gnameg add-header!ŒC:3*-;<=>?@AB hX¸] †$LC†$MC†$MC†$M$C4M5NMC 6°g component  Tgt 1 Lgfilenamefscripts/read-rfc822.scmŒ g ŒŒ h ŒŒ 1 l ŒŒ = m &ŒŒ C m >ŒŒ E m CŒŒ G m &ŒŒ I m ŒŒ P o ŒŒ T o ŒŒ  T C hø4]A$444555"HHHOQ"‘45$)$4>"G"45K"m4 5$4545Œ"ÿÿ¢$4>"G"45"ÿÿr45"ÿÿ_4 J5K OC,gport  ôgfrom ôg body-lines  # ôgbody  & ôgheaders  ) ôg add-header!  3 ôgline  < Ígcurrent-header  < Ígt  y Í gfilenamefscripts/read-rfc822.scmŒ I ŒŒ  J ŒŒ K ŒŒ K "ŒŒ  L /ŒŒ  K "ŒŒ  K ŒŒ J ŒŒ ) O ŒŒ ) J ŒŒ < [ ŒŒ = \ ŒŒ G \ ŒŒ M ] ŒŒ N ] !ŒŒ d ^ ŒŒ l ^ ŒŒ q _ ŒŒ y \ ŒŒ ‚ a ŒŒ ‰ b ŒŒ ’ b ŒŒ š a ŒŒ   d ŒŒ ¡ d !ŒŒ · e ŒŒ  e $ŒŒ Ê e ŒŒ Í [ ŒŒ Î [ ŒŒ Ý [ ŒŒ Þ f ŒŒ æ f ŒŒ"  ô gnameg parse-messageŒCCRCh…]6}gport  gfilenamefscripts/read-rfc822.scmŒ q ŒŒ  r ŒŒ   gnamegread-rfc822-silentlyŒCR;DE0DFh]Ž6wgheader  gfilenamefscripts/read-rfc822.scmŒ v ŒŒ  w ŒŒ w $ŒŒ w 1ŒŒ  w ŒŒ   C=G> hX] 45$4>"G"445>"G456gparse  Tgt -gfilenamefscripts/read-rfc822.scmŒ t ŒŒ  u ŒŒ  u ŒŒ u ŒŒ u ŒŒ  u )ŒŒ  u 4ŒŒ  u )ŒŒ . v ŒŒ 3 x ŒŒ 7 x ŒŒ 9 x ŒŒ > v ŒŒ K y ŒŒ L y ŒŒ P y ŒŒ R y ŒŒ T y ŒŒ  T gnamegdisplay-rfc822ŒCHRIJHh8À-1344554>"GC¸gargs 1gparse  /gfilenamefscripts/read-rfc822.scmŒ { ŒŒ | ŒŒ | %ŒŒ  | 0ŒŒ  | %ŒŒ  | ŒŒ  | ŒŒ  } ŒŒ 1 gnameg read-rfc822ŒCRiKRCþgm  0gfilenamefscripts/read-rfc822.scmŒ  - ŒŒ 4 3 ŒŒ 6 4 ŒŒ 9 4 ŒŒ : 6 ŒŒ @ 6 $ŒŒ B 6 ŒŒ E 6 ŒŒ F 7 ŒŒ L 7 $ŒŒ N 7 ŒŒ Q 7 ŒŒ R 8 ŒŒ X 8 $ŒŒ Z 8 ŒŒ ] 8 ŒŒ a : ŒŒ Î < ŒŒ G I ŒŒ è q ŒŒ  t ŒŒ + { ŒŒ 2 € ŒŒ  4 C6