diff --git a/src/ChangeLog b/src/ChangeLog
index 30e81707642..d18c1b0344e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-11  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* gnutls.c (emacs_gnutls_write): Don't infloop if sendto fails.
+
 2012-02-11  Eli Zaretskii  <eliz@gnu.org>
 
 	* w32select.c (Fx_selection_exists_p): Sync doc string and
diff --git a/src/gnutls.c b/src/gnutls.c
index d7bf0e8edb8..5da84bdd960 100644
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -363,7 +363,7 @@ emacs_gnutls_write (struct Lisp_Process *proc, const char *buf, EMACS_INT nbyte)
 
       if (rtnval < 0)
 	{
-	  if (rtnval == GNUTLS_E_AGAIN || rtnval == GNUTLS_E_INTERRUPTED)
+	  if (rtnval == GNUTLS_E_INTERRUPTED)
 	    continue;
 	  else
 	    break;