#78 smtpmail - multiple TO and CC headers should be combined

[freakdaddy]

When there are multiple TO or CC recipients smtpmail creates multiple TO or CC headers.

TO: someone@somewhere.com
TO: someoneelse@somewhereelse.com

This causes a higher score in spam checkers. What should happen is this...

TO: someone@somewhere.com,someoneelse@somewhereelse.com

This makes a lower spam score.

[freakdaddy]

For version 5.8c... down around line 1053... here is a patch that I believe fixes the issue.

/**************************************/
/* Loop through all To's              */
/**************************************/
IF EmailTo <> "" THEN DO: 
    smtpcmd=smtpcmd + "To:".
    DO idx = 1 TO NUM-ENTRIES(EmailTo):
      IF INDEX(ENTRY(idx,EmailTo),"<") > 0 THEN DO:
           smtpcmd = smtpcmd +  ENTRY(1,ENTRY(idx,EmailTo),"<") +
                "<" + ENTRY(1,ENTRY(2,ENTRY(idx,EmailTo),"<"),">") +
                ">".
      END.
      ELSE DO:
        smtpcmd = smtpcmd + ENTRY(idx,EmailTo).
      END.
         IF idx<NUM-ENTRIES(EmailTo) THEN
               smtpcmd=smtpcmd + ",".
    END.
END.  
smtpcmd = smtpcmd + crlf.

/*****************************/
/* Loop through all CC's     */
/*****************************/
DEF VAR tempCC AS CHAR INIT "" NO-UNDO.
IF EmailCC <> "" THEN DO: 
    DO idx = 1 TO NUM-ENTRIES(EmailCC):
        IF NUM-ENTRIES(ENTRY(idx,EmailCC),"^") = 1 OR ENTRY(2,ENTRY(idx,EmailCC),"^") NE "B" THEN DO:
          IF NUM-ENTRIES(tempCC)>=1 THEN
              tempCC=tempCC + ",".
          tempCC=tempCC + ENTRY(1,ENTRY(idx,EmailCC),"^").
        END.
    END.
    IF tempCC <> "" THEN
        smtpcmd=smtpcmd + "Cc:" + tempCC + crlf.
END.