[bknr-cvs] r2020 - branches/xml-class-rework/thirdparty/cl-mime

[bknr at bknr.net]

Author: hhubner
Date: 2006-10-21 09:34:15 -0400 (Sat, 21 Oct 2006)
New Revision: 2020

Modified:
   branches/xml-class-rework/thirdparty/cl-mime/encoding.lisp
   branches/xml-class-rework/thirdparty/cl-mime/package.lisp
Log:
fix quoted-printable encoding (did not work)
use cl-base64 instead of base64


Modified: branches/xml-class-rework/thirdparty/cl-mime/encoding.lisp
===================================================================
--- branches/xml-class-rework/thirdparty/cl-mime/encoding.lisp	2006-10-21 13:33:42 UTC (rev 2019)
+++ branches/xml-class-rework/thirdparty/cl-mime/encoding.lisp	2006-10-21 13:34:15 UTC (rev 2020)
@@ -35,7 +35,7 @@
 	     (string (string-to-base64-string content :columns 75))
 	     ((array (unsigned-byte 8))
 	      (usb8-array-to-base64-string content :columns 75))))
-	  (:quoted-printable (qprint:encode content 75))))))
+	  (:quoted-printable (qprint:encode content))))))
 
 
 (defun decode-content (mime)

Modified: branches/xml-class-rework/thirdparty/cl-mime/package.lisp
===================================================================
--- branches/xml-class-rework/thirdparty/cl-mime/package.lisp	2006-10-21 13:33:42 UTC (rev 2019)
+++ branches/xml-class-rework/thirdparty/cl-mime/package.lisp	2006-10-21 13:34:15 UTC (rev 2020)
@@ -24,7 +24,7 @@
   (:documentation "A package for constructing MIME objects for printing and
 parsing MIME formatted strings or streams.")
   (:nicknames :mime)
-  (:use :cl :cl-ppcre :base64)
+  (:use :cl :cl-ppcre :cl-base64)
   (:export :text-mime
 	   :multipart-mime
 	   :mime