Revision: 3534 Author: hans URL: http://bknr.net/trac/changeset/3534 update cl-qprint to version 0.2.1 U trunk/thirdparty/cl-qprint/base.lisp Modified: trunk/thirdparty/cl-qprint/base.lisp =================================================================== --- trunk/thirdparty/cl-qprint/base.lisp 2008-07-21 09:18:46 UTC (rev 3533) +++ trunk/thirdparty/cl-qprint/base.lisp 2008-07-21 09:20:25 UTC (rev 3534) @@ -68,7 +68,7 @@ (princ #\linefeed stream)) -(defun encode (input &key encode-newlines) +(defun encode (input &key columns encode-newlines) "INPUT must be either a string or a stream. Reads from INPUT and produces a quoted-printable encoded string" (let ((out-stream (make-string-output-stream)) @@ -86,7 +86,8 @@ (get-output-stream-string out-stream)) ;; Put in a soft line break if the line's gotten too long - (when (>= (- position last-line-break) 74) + (when (and columns + (>= (- position last-line-break) (1- columns))) (princ #\= out-stream) (cr-lf out-stream) (setf last-line-break position))