From 8d5565b8301420293c2b3b9a67f17eb0942cec20 Mon Sep 17 00:00:00 2001 From: totoro Date: Sun, 23 Jul 2017 23:18:51 +0200 Subject: [PATCH] add type instantiation help for smtp_recipient --- mail/send_mail.anubis | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/mail/send_mail.anubis b/mail/send_mail.anubis index 19196a9..d50dfc9 100644 --- a/mail/send_mail.anubis +++ b/mail/send_mail.anubis @@ -44,7 +44,14 @@ public type Smtp_Recipient: ). - +public define Smtp_Recipient + smtp_recipient + ( + String recipient + )= + smtp_recipient(recipient, send_tries(0), 0,0) +. + public type Send_Param: send_param( Str_HostName host_name, //domain of the sender like "mail.calexium.com" Str_Sender sender, //sender email address @@ -231,14 +238,15 @@ public define Result(SmtpClientResult, One) )= if resolve_address(server) is { - failure then + failure then + println("IP address NOT found for Mail server ["+server+"]"); logWarning(send_mail_log,"IP address NOT found for Mail server ["+server+"]"); error(error), success(ip_addr) then with ip_txt = ip_addr_to_string(ip_addr), logTrace(send_mail_log, send_mail_mask, "send_mail: Trying to connect to "+ip_txt); - + println("send_mail: Trying to connect to "+ip_txt); if (Result(NetworkConnectError,RWStream))connect(ip_addr, port) is { error(e) then -- libgit2 0.21.4