Browse code
2006-01-26 Kevin Layer <layer@gemini>
layer authored on 27/01/2006 01:22:47
Showing 3 changed files
Showing 3 changed files
... | ... |
@@ -1,4 +1,4 @@ |
1 |
-;; $Id: mime.cl,v 1.1 2006/01/26 23:53:27 dancy Exp $ |
|
1 |
+;; $Id: mime.cl,v 1.2 2006/01/27 01:22:47 layer Exp $ |
|
2 | 2 |
|
3 | 3 |
(defpackage :net.post-office |
4 | 4 |
(:use #:lisp #:excl) |
... | ... |
@@ -24,6 +24,8 @@ |
24 | 24 |
#:mime-part-parts |
25 | 25 |
#:mime-part-boundary)) |
26 | 26 |
|
27 |
+(provide :mime) |
|
28 |
+ |
|
27 | 29 |
(in-package :net.post-office) |
28 | 30 |
|
29 | 31 |
(eval-when (compile load eval) |
... | ... |
@@ -24,7 +24,7 @@ |
24 | 24 |
;; Suite 330, Boston, MA 02111-1307 USA |
25 | 25 |
;; |
26 | 26 |
;; |
27 |
-;; $Id: smtp.cl,v 1.10 2006/01/26 23:53:27 dancy Exp $ |
|
27 |
+;; $Id: smtp.cl,v 1.11 2006/01/27 01:22:47 layer Exp $ |
|
28 | 28 |
|
29 | 29 |
;; Description: |
30 | 30 |
;; send mail to an smtp server. See rfc821 for the spec. |
... | ... |
@@ -45,7 +45,9 @@ |
45 | 45 |
(in-package :net.post-office) |
46 | 46 |
|
47 | 47 |
(eval-when (compile load eval) |
48 |
- (require :sasl)) |
|
48 |
+ (require :streamp) |
|
49 |
+ (require :sasl) |
|
50 |
+ (require :mime)) |
|
49 | 51 |
|
50 | 52 |
;; the exported functions: |
51 | 53 |
|