suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New SMTP servers require a FQDN.

Browse Source 
svn: r3148

original commit: d3dde1685b3995b453544efecb4d826759b487a2
This commit is contained in:
Jay McCarthy 2006-05-31 15:37:56 +00:00
parent c98732c049
commit c979c1ab87
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/net/smtp-sig.ss
View File

@ -4,7 +4,8 @@
(provide net:smtp^) (provide net:smtp^)
(define-signature net:smtp^ (define-signature net:smtp^
(smtp-send-message (smtp-sending-server
smtp-send-message
smtp-send-message* smtp-send-message*
smtp-sending-end-of-message))) smtp-sending-end-of-message)))

4
collects/net/smtp-unit.ss
View File

@ -11,7 +11,7 @@
(unit/sig net:smtp^ (unit/sig net:smtp^
(import) (import)
(define ID "localhost") (define smtp-sending-server (make-parameter "localhost"))
(define debug-via-stdio? #f) (define debug-via-stdio? #f)
@ -70,7 +70,7 @@
(raise x))]) (raise x))])
(check-reply r 220 w) (check-reply r 220 w)
(log "hello~n") (log "hello~n")
(fprintf w "EHLO ~a~a" ID crlf) (fprintf w "EHLO ~a~a" (smtp-sending-server) crlf)
(check-reply r 250 w) (check-reply r 250 w)
(when auth-user (when auth-user