$NetBSD: patch-ab,v 1.1.1.1 2006/01/29 15:54:04 shannonjr Exp $
--- src/tls-auth.c.orig	Mon Jul 25 15:58:08 2005
+++ src/tls-auth.c	Mon Aug 15 12:38:00 2005
@@ -165,6 +165,7 @@ int tls_auth_connection(prelude_client_p
 	int ret, fd;
         void *cred;
         gnutls_session session;
+	int cipher_list[2];
 
         ret = prelude_client_profile_get_credentials(cp, &cred);
         if ( ret < 0 )
@@ -172,6 +173,9 @@ int tls_auth_connection(prelude_client_p
         
         gnutls_init(&session, GNUTLS_CLIENT);
         gnutls_set_default_priority(session);
+	cipher_list[0] = GNUTLS_CIPHER_AES_128_CBC;
+	cipher_list[1] = 0;
+	gnutls_cipher_set_priority (session, cipher_list);
         gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE, cred);
 
         fd = prelude_io_get_fd(io);