diff options
Diffstat (limited to 'portal/tcp/portal.ml')
| -rw-r--r-- | portal/tcp/portal.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index b776efc..33e4971 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -199,10 +199,10 @@ let _encrypted = function | Plain _ -> false | Tls _ -> true -let header ?from domain (portal : t) = +let header ?from (portal : t) = let stanza = let attributes = - [(("", "to"), domain); (("", "version"), "1.0"); + [(("", "to"), portal.domain); (("", "version"), "1.0"); (("http://www.w3.org/XML/1998/namespace", "lang"), "en"); (("http://www.w3.org/2000/xmlns/", "xmlns"), "jabber:client"); (("http://www.w3.org/2000/xmlns/", "stream"), xmlns)] |