From 1bfc4bbdadb2c3894f3e2a5ad8844e601fa98a15 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 21 Feb 2017 15:12:47 -0500
Subject: [PATCH] Log port number in SMTP driver startup/shutdown messages

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

diff --git a/racket/syndicate/drivers/smtp.rkt b/racket/syndicate/drivers/smtp.rkt
index 4e5297c..be8f403 100644
--- a/racket/syndicate/drivers/smtp.rkt
+++ b/racket/syndicate/drivers/smtp.rkt
@@ -64,9 +64,9 @@
          (during/spawn (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))
+            (log-syndicate/drivers/smtp-info "~v starting: ~a:~a ~s ~s" id host port user ssl-mode))
            (on-stop
-            (log-syndicate/drivers/smtp-info "~v stopping: ~s ~s ~s" id host user ssl-mode))
+            (log-syndicate/drivers/smtp-info "~v stopping: ~a:~a ~s ~s" id host port user ssl-mode))
            (assert (smtp-account id))
            (on (message (smtp-delivery id $delivery-id $from $to $header $lines))
                (with-handlers [(exn:fail?