[Oberon] Re (2): Duplicate headers in SMTP.

Paul Reed paulreed at paddedcell.com
Fri Jul 22 23:57:20 CEST 2022

Hi Peter,

On 2022-07-22 22:46, peter at easthope.ca wrote:
> To: ...... at gmail.com
> To: s.... at shaw.ca

"Oh, it's worse than that, Jim!" :)

The code

    Recipient(i, t, rcpt);
    WHILE rcpt # "" DO
      Texts.Append(head, W.buf);
      Texts.WriteString(W, "To: "); Texts.WriteString(W, rcpt);
      Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf);
      SendCmd(S, "RCPT TO:", rcpt); ReadResponse(S);
      IF S.reply[0] # "2" THEN
        S.res := NetTools.Failed; RETURN FALSE
      Recipient(i, t, rcpt); first := FALSE

will need a good coat of looking at, to reduce the number of "TO:" 
headers to one. :(


More information about the Oberon mailing list