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
{ from string }
{ to array }
{ cc array }
{ bcc array }
{ subject string }
{ body string } ;
@ -154,9 +156,12 @@ ERROR: invalid-header-string string ;
: email>headers ( email -- hashtable )
[
[ from>> "From" set ]
[ to>> ", " join "To" set ]
[ subject>> "Subject" set ] tri
{
[ from>> "From" set ]
[ to>> ", " join "To" set ]
[ cc>> ", " join "Cc" set ]
[ subject>> "Subject" set ]
} cleave
now timestamp>rfc822 "Date" set
message-id "Message-Id" set
] { } make-assoc ;
@ -166,6 +171,8 @@ ERROR: invalid-header-string string ;
helo get-ok
dup from>> extract-email mail-from get-ok
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
swap write-headers
crlf