@@ -1,3 +1,8 @@

+2006-01-30  Kevin Layer  <layer@gemini>

+

+	* mime-transfer-encoding.cl: tweak for 7.0 bootstrapping

+	* mime.cl: tweak for 7.0 bootstrapping

+

 2006-01-26  Kevin Layer  <layer@gemini>

 	* mime.cl: provide

@@ -1,7 +1,8 @@

-;; $Id: mime-transfer-encoding.cl,v 1.2 2006/01/27 01:28:58 layer Exp $

+;; $Id: mime-transfer-encoding.cl,v 1.3 2006/01/30 18:26:39 layer Exp $

 (defpackage :net.post-office

   (:use #:lisp #:excl)

+  (:import-from #:excl #:base64-encode-stream)

   (:export

    #:base64-encode-stream

    #:qp-encode-stream))

@@ -4,7 +4,7 @@

   :type :system

   :post-loadable t)

-;; $Id: mime.cl,v 1.3 2006/01/27 01:40:10 layer Exp $

+;; $Id: mime.cl,v 1.4 2006/01/30 18:26:39 layer Exp $

 (defpackage :net.post-office

   (:use #:lisp #:excl)

@@ -283,7 +283,7 @@ This is a multi-part message in MIME format.~%"))

 	      (unwind-protect

 		  (let ((encoding (mime-part-encoding part)))

 		    (if* (equalp encoding "base64")

-		       then (base64-encode-stream instream stream)

+		       then (excl::base64-encode-stream instream stream)

 		     elseif (equalp encoding "quoted-printable")

 		       then (qp-encode-stream instream stream)

 		       else (raw-encode-stream instream stream)))