Fold after 71st (not 72nd) char, since we need insert an "=".

Double check eobp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e025db3..4b841f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-10-05  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * qp.el (quoted-printable-encode-region): Check eobp.
+
 1999-10-03  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * nntp.el (nntp-retrieve-headers-with-xover): Fix hanging problem.

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."