diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index f56dd2e..c85adee 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -2,11 +2,6 @@
 
 (in-package #:backplane-dns)
 
-(defun xmpp-connect (hostname username password)
-  (let ((conn (xmpp:connect-tls :hostname hostname)))
-    (xmpp:auth conn username password "backplane")
-    conn))
-
 (defun getenv-or-fail (env-var &optional default)
   (let ((value (uiop:getenv env-var)))
     (if (null value)