Sync up with Pterodactyl Gnus v0.98.

[elisp/gnus.git-] / lisp / qp.el

diff --git a/lisp/qp.el b/lisp/qp.el
index 18c66b7..56203e9 100644 (file)
--- a/lisp/qp.el
+++ b/lisp/qp.el
@@ -99,11 +99,12 @@ matched by that regexp."
          (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."