Read the text

(let ((text "") line from id f1 f2 i1 i2) (block reading (loop  (setq line  (read-line stream nil nil)) (if line (setq text  (concatenate 'string text line)) (return-from reading)))) ;; now TEXT is a string containing ;; all message lines

Previous slide

Next slide

Back to first slide

View graphic version