Hi,
Am I doing something wrong here?
#;22> (define s (smtp:connect "localhost" (get-host-name) #t))
SMTP: [220 cl-t093-450cl.localdomain ESMTP Postfix]
SMTP: HELO cl-t093-450cl
SMTP: [250 cl-t093-450cl.localdomain]
#;23> (with-output-to-port (smtp:open s "address@hidden"
"address@hidden") (lambda () (print "Subject: How are
you?\r\n\r\nSo, how are you then?\r\n") ) )
SMTP: MAIL FROM: <address@hidden>
SMTP: [250 2.1.0 Ok]
SMTP: RCPT TO: <address@hidden>
SMTP: [250 2.1.5 Ok]
SMTP: DATA
SMTP: [354 End data with <CR><LF>.<CR><LF>]
#;24> (smtp:disconnect s)
SMTP: QUIT
Error: read operation timed out: 14
Call history:
<syntax> (smtp:disconnect s)
<eval> (smtp:disconnect s) <--
#;24>
and the mail is never received...
Thanks!
BuddyPilots <http://www.buddypilots.com>
*Jean-Philippe Théberge*
*Programmeur Architecte*
Tel: (514) 353-2307
_______________________________________________
Chicken-users mailing list
address@hidden
http://lists.nongnu.org/mailman/listinfo/chicken-users