From 0cc1c0d5972d2a0ba3be8140ca06f70e24e59d4c Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 14 Feb 2008 00:44:09 -0600
Subject: [PATCH] smtp: Use email object

---
 extra/smtp/smtp.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/extra/smtp/smtp.factor b/extra/smtp/smtp.factor
index 27aac1202e..ce5c114c00 100755
--- a/extra/smtp/smtp.factor
+++ b/extra/smtp/smtp.factor
@@ -169,3 +169,15 @@ LOG: smtp-response DEBUG
 ! : cram-md5-auth ( key login  -- )
 !     "AUTH CRAM-MD5\r\n" get-ok 
 !     (cram-md5-auth) "\r\n" append get-ok ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+USE: new-slots
+
+TUPLE: email from to subject body ;
+
+: <email> ( -- email ) email construct-empty ;
+
+: send ( email -- )
+  { email-body email-subject email-to email-from } get-slots
+  send-simple-message ;
\ No newline at end of file