+(define (get-to-addresses config)
+ (map (lambda (p) (cons
+ (conc "<" (car p) "@" (config-host config) ">")
+ (cdr p)))
+ (map (lambda (file) (cons (pathname-file file) file))
+ (glob (conc (config-spool-dir config) "/*")))))
+
+(define (remove-angle-brackets addr)
+ (let ((left-idx (substring-index "<" addr))
+ (right-idx (substring-index ">" addr)))
+ (substring addr (+ left-idx 1) right-idx)))
+