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