Permalink
Browse files

[fix] smtpserver: correct success' code

  • Loading branch information...
1 parent d31997a commit 49feb70739b928c0c7046c947acb984002bc6d4a Damien Graux committed Jul 8, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 stdlib/web/mail/server.opa
@@ -15,7 +15,7 @@ SmtpServer= {{
init_server = %% BslMail.Mailserver.init_server %%
start(ip : ip ,port : int, ssl : option(SSL.secure_type), handler : SmtpServer.handler)=
new_handler(f,t,c) = match handler(f,t,c) with
- | {success} -> (200,"done!")
+ | {success} -> (250,"done!")
| {failure = {undisponible}} -> (450,"undone because mail box not disponible")
| {failure = {stopped}} -> (451,"treatment error")
| {failure = {unfound}} -> (550,"No access to mail box => unfound")

0 comments on commit 49feb70

Please sign in to comment.