[bknr-cvs] hans changed trunk/thirdparty/cl-qprint/base.lisp

[BKNR Commits]

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))