[libEtPan-commits] CVS: libetpan/src/data-types mailstream_ssl.c,1.29,1.30

[Colin L. <col...@us...>]

Update of /cvsroot/libetpan/libetpan/src/data-types
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3600/src/data-types

Modified Files:
	mailstream_ssl.c 
Log Message:
Try to finish handshaking when possible.


Index: mailstream_ssl.c
===================================================================
RCS file: /cvsroot/libetpan/libetpan/src/data-types/mailstream_ssl.c,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- mailstream_ssl.c	9 Nov 2005 17:33:14 -0000	1.29
+++ mailstream_ssl.c	11 Nov 2005 22:49:36 -0000	1.30
@@ -268,9 +268,11 @@
   r = gnutls_credentials_set(session, GNUTLS_CRD_CERTIFICATE, anoncred);
   gnutls_transport_set_ptr(session, (gnutls_transport_ptr) fd);
 
-  r = gnutls_handshake(session);
+  do {
+    r = gnutls_handshake(session);
+  } while (r == GNUTLS_E_AGAIN || r == GNUTLS_E_INTERRUPTED);
+
   if (r < 0) {
-    int alert = gnutls_alert_get (session);
     goto free_ssl_conn;
   }