Parse the text

(setq f1 (+ 6 (search "from=<" text)))

(setq f2 (position #\> text :start f1))

(setq from (subseq text f1 f2))

(setq i1 (+ 7 (search "msgid=<" text)))(setq i2 (position #\> text :start i1))(setq id (subseq text i1 i2))(values from id)

) ;; closes off let form[email protected] [email protected]

Previous slide

Next slide

Back to first slide

View graphic version