(print-error-message o)
#t)))
+
;; Local delivery
(define (get-local-addresses config)
(print "* MESSAGE DELIVERED (local)")
#t)
+
;; Remote delivery
(define (get-domain-from-email email-string)
'(("\n" . "\r\n")))))
(write-string processed-string #f tcp-out)))))
+
;;; Command line argument parsing
;;