===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ftp/fetch.c,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -r1.138 -r1.139
--- src/usr.bin/ftp/fetch.c	2015/02/27 17:38:19	1.138
+++ src/usr.bin/ftp/fetch.c	2015/07/18 21:50:47	1.139
@@ -1,4 +1,4 @@
-/*	$OpenBSD: fetch.c,v 1.138 2015/02/27 17:38:19 jca Exp $	*/
+/*	$OpenBSD: fetch.c,v 1.139 2015/07/18 21:50:47 bluhm Exp $	*/
 /*	$NetBSD: fetch.c,v 1.14 1997/08/18 10:20:20 lukem Exp $	*/
 
 /*-
@@ -1509,13 +1509,23 @@
 int
 SSL_vprintf(struct tls *tls, const char *fmt, va_list ap)
 {
-	char *string;
-	size_t nw;
+	char *string, *buf;
+	size_t nw, len;
 	int ret;
 
 	if ((ret = vasprintf(&string, fmt, ap)) == -1)
 		return ret;
-	ret = tls_write(tls, string, ret, &nw);
+	buf = string;
+	len = ret;
+	while (len > 0) {
+		ret = tls_write(tls, buf, len, &nw);
+		if (ret == TLS_READ_AGAIN || ret == TLS_WRITE_AGAIN)
+			continue;
+		if (ret < 0)
+			break;
+		buf += nw;
+		len -= nw;
+	}
 	free(string);
 	return ret;
 }