@@ -1,4 +1,10 @@

-;; $Id: mime.cl,v 1.2 2006/01/27 01:22:47 layer Exp $

+#+(version= 8 0)

+(sys:defpatch "mime" 0

+  "v0: New module.  See documentation."

+  :type :system

+  :post-loadable t)

+

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

 (defpackage :net.post-office

   (:use #:lisp #:excl)

@@ -1,3 +1,9 @@

+#+(version= 8 0)

+(sys:defpatch "smtp" 1

+  "v1: send-letter w/attachments; send-smtp* can take streams"

+  :type :system

+  :post-loadable t)

+

 ;; -*- mode: common-lisp; package: net.post-office -*-

 ;;

 ;; smtp.cl

@@ -24,7 +30,7 @@

 ;; Suite 330, Boston, MA  02111-1307  USA

 ;;

 ;;

-;; $Id: smtp.cl,v 1.11 2006/01/27 01:22:47 layer Exp $

+;; $Id: smtp.cl,v 1.12 2006/01/27 01:40:10 layer Exp $

 ;; Description:

 ;;   send mail to an smtp server.  See rfc821 for the spec.