steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add support for cc and bcc to smtp

db4
Doug Coleman 2008-08-16 17:28:38 -05:00
parent 5e247325b2
commit 4bbf2de249
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/smtp/smtp.factor
View File

@ -26,6 +26,8 @@ LOG: log-smtp-connection NOTICE ( addrspec -- )
TUPLE: email TUPLE: email
{ from string } { from string }
{ to array } { to array }
{ cc array }
{ bcc array }
{ subject string } { subject string }
{ body string } ; { body string } ;
@ -154,9 +156,12 @@ ERROR: invalid-header-string string ;
: email>headers ( email -- hashtable ) : email>headers ( email -- hashtable )
[ [
[ from>> "From" set ] {
[ to>> ", " join "To" set ] [ from>> "From" set ]
[ subject>> "Subject" set ] tri [ to>> ", " join "To" set ]
[ cc>> ", " join "Cc" set ]
[ subject>> "Subject" set ]
} cleave
now timestamp>rfc822 "Date" set now timestamp>rfc822 "Date" set
message-id "Message-Id" set message-id "Message-Id" set
] { } make-assoc ; ] { } make-assoc ;
@ -166,6 +171,8 @@ ERROR: invalid-header-string string ;
helo get-ok helo get-ok
dup from>> extract-email mail-from get-ok dup from>> extract-email mail-from get-ok
dup to>> [ extract-email rcpt-to get-ok ] each dup to>> [ extract-email rcpt-to get-ok ] each
dup cc>> [ extract-email rcpt-to get-ok ] each
dup bcc>> [ extract-email rcpt-to get-ok ] each
data get-ok data get-ok
swap write-headers swap write-headers
crlf crlf