Changeset 2790

Timestamp:

03/24/08 08:51:11 (3 months ago)

Author:

hans

Message:

Add header quoting

Files:

• trunk/thirdparty/cl-smtp/cl-smtp.asd (modified) (2 diffs)
• trunk/thirdparty/cl-smtp/cl-smtp.lisp (modified) (1 diff)
• trunk/thirdparty/cl-smtp/package.lisp (added)
• trunk/thirdparty/cl-smtp/smtp-output-stream.lisp (added)

trunk/thirdparty/cl-smtp/cl-smtp.asd

@@ -17 +17 @@
-;;; Description: cl-smtp ASDF system definition file
-
-(defpackage :cl-smtp
-  (:use :cl :asdf)
-  (:export "SEND-EMAIL"
-           "WITH-SMTP-MAIL"
-
-           "SMTP-ERROR"
-           "SMTP-PROTOCOL-ERROR"
-           "NO-SUPPORTED-AUTHENTICATION-METHOD"
-           "RCPT-FAILED"
-           "IGNORE-RECIPIENT"))
-
-(in-package :cl-smtp)
-
-(defparameter *debug* nil)
-
-(defmacro print-debug (str)
-  `(when *debug*
-      (print ,str)))
-
-(asdf:defsystem :cl-smtp
-  :version "20071113.1"
@@ -43 +24 @@
-                        #-allegro :flexi-streams
-                        #-allegro :cl+ssl)
-
+
+
-               (:file "attachments")
+               (:file "cl-smtp")
+               (:file "smtp-output-stream")
-               (:file "mime-types")))

trunk/thirdparty/cl-smtp/cl-smtp.lisp

@@ -110 +110 @@
-                                  :local-hostname local-hostname)))
-      (initiate-smtp-mail stream from to)
-stream
+ (make-instance 'smtp-output-stream :stream stream)
-      (finish-smtp-mail stream))))
-