From 4af472f7ff3b5b9ca7dda4ed9576d36e8d5afa4e Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 24 Nov 2016 10:38:36 +1300
Subject: [PATCH] Log smtp-account startup and shutdown

---
 racket/syndicate/drivers/smtp.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/racket/syndicate/drivers/smtp.rkt b/racket/syndicate/drivers/smtp.rkt
index 555a11a..544e543 100644
--- a/racket/syndicate/drivers/smtp.rkt
+++ b/racket/syndicate/drivers/smtp.rkt
@@ -63,6 +63,10 @@
   (actor #:name 'smtp-account-driver
          (during/actor (smtp-account-config $id $host $port $user $password $ssl-mode)
            #:name (list 'smtp-account id)
+           (on-start
+            (log-syndicate/drivers/smtp-info "~v starting: ~s ~s ~s" id host user ssl-mode))
+           (on-stop
+            (log-syndicate/drivers/smtp-info "~v stopping: ~s ~s ~s" id host user ssl-mode))
            (assert (smtp-account id))
            (on (message (smtp-delivery id $delivery-id $from $to $header $lines))
                (with-handlers [(exn:fail?