From 70cb7940e366864f60bc71a98f181f6cc02b551e Mon Sep 17 00:00:00 2001
From: "Jean-Marc Pigeon (Delson)" <jmp@safe.ca>
Date: Sun, 8 Jun 2025 20:18:56 -0400
Subject: [PATCH] Able to send recipient list to remote server under a crypted
 link

---
 data-feed/feed01.tst |  2 ++
 lib/lvleml.c         | 19 +++++++++++++++++--
 lib/unitls.c         |  1 -
 3 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/data-feed/feed01.tst b/data-feed/feed01.tst
index 1babf0e..b771745 100644
--- a/data-feed/feed01.tst
+++ b/data-feed/feed01.tst
@@ -11,6 +11,8 @@ S:MAIL FROM: <postmaster@example.com>
 R:250 2.1.3 postmaster@example.com.. sender ok
 S:RCPT TO: <dom1user1@subdom1.example.com>
 R:250 2.6.4 Address accepted
+S:RCPT TO: <dom1user2@subdom1.example.com>
+R:250 2.6.4 Address accepted
 #-------------------------------------------------------------------------
 #-sending data
 C:DATA
diff --git a/lib/lvleml.c b/lib/lvleml.c
index c5a83a9..02ede5d 100644
--- a/lib/lvleml.c
+++ b/lib/lvleml.c
@@ -860,7 +860,7 @@ tosend=(TRATYP **)0;
 phase=0;
 proceed=true;
 while (proceed==true) {
-  (void) rou_alert(0,"%s JMPDBG phase='%d'",OPEP,phase);
+  //(void) rou_alert(0,"%s JMPDBG phase='%d'",OPEP,phase);
   switch (phase) {
     case 0      :       //process completed?
       if ((*tra)==(TRATYP *)0)
@@ -915,7 +915,9 @@ while (proceed==true) {
 
       rspcode=tcp_smtp_command(&rmt,"MAIL FROM: <%s>",(*tosend)->mailfrom);
       switch (rspcode) {
-        default :       //unexpected answer
+        case CMDOK      :       //originator accepted
+          break;
+        default         :       //unexpected answer
           (void) rou_alert(0,"%s JMPDBG unexpected response code='%d'",
                               OPEP,rspcode);
           phase+=2;     //not sending data
@@ -923,6 +925,19 @@ while (proceed==true) {
         }
       break;
     case 6      :       //sending recipient list
+      TRATYP **dest;
+
+      dest=tosend;
+      while (*dest!=(TRATYP *)0) {
+        rspcode=tcp_smtp_command(&rmt,"RCPT TO: <%s>",(*tosend)->rcptto);
+        switch (rspcode) {
+          case CMDOK      :     //originator accepted
+            break;
+          default         :     //Not accepted recipient
+            break;
+          }
+        dest++;
+        }
       break;
     case 7      :       //send email data
       break;
diff --git a/lib/unitls.c b/lib/unitls.c
index 2482e0b..b12514c 100644
--- a/lib/unitls.c
+++ b/lib/unitls.c
@@ -819,7 +819,6 @@ while (proceed==true) {
         }
       break;
     case 2      :       //lets wait for char
-      (void) rou_alert(0,"%s JMPDBG waiting %d millisec",OPEP,millisec);
       status=poll(polling,1,millisec);
       switch (status) {
         case -1         :       //Polling error
-- 
2.47.3