Index: qp.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/qp.el,v
retrieving revision 5.11
diff -u -r5.11 qp.el
--- qp.el	1999/09/27 15:19:05	5.11
+++ qp.el	1999/10/05 07:40:04
@@ -99,11 +99,12 @@
 	  (end-of-line)
 	  (while (> (current-column) 72)
 	    (beginning-of-line)
-	    (forward-char 72)
+	    (forward-char 71) ;; 71 char plus an "="
 	    (search-backward "=" (- (point) 2) t)
 	    (insert "=\n")
 	    (end-of-line))
-	  (forward-line))))))
+	  (unless (eobp)
+	    (forward-line)))))))
 
 (defun quoted-printable-encode-string (string)
  "QP-encode STRING and return the results."