diff -r -u fetchmail-6.1.2.orig/driver.c fetchmail-6.1.2/driver.c
--- fetchmail-6.1.2.orig/driver.c	Thu Oct 31 14:35:44 2002
+++ fetchmail-6.1.2/driver.c	Sun Nov 24 02:09:28 2002
@@ -525,7 +525,8 @@
 	    {
 		if (ctl->server.base_protocol->fetch_body)
 		    suppress_readbody = TRUE;
-		len = 0;	/* suppress body processing */
+		else
+		    suppress_delete = suppress_forward = TRUE;
 	    }
 	    else if (err)
 		return(err);