|
Revision 2855, 1.1 kB
(checked in by hans, 5 months ago)
|
update cl-smtp from trunk
|
| Line | |
|---|
| 1 |
;;; -*- mode: Lisp -*- |
|---|
| 2 |
|
|---|
| 3 |
;;; This file is part of CL-SMTP, the Lisp SMTP Client |
|---|
| 4 |
|
|---|
| 5 |
;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski |
|---|
| 6 |
|
|---|
| 7 |
;;; This library is free software; you can redistribute it and/or |
|---|
| 8 |
;;; modify it under the terms of the Lisp Lesser General Public License |
|---|
| 9 |
;;; (http://opensource.franz.com/preamble.html), known as the LLGPL. |
|---|
| 10 |
|
|---|
| 11 |
;;; This library is distributed in the hope that it will be useful, |
|---|
| 12 |
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
|---|
| 13 |
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|---|
| 14 |
;;; Lisp Lesser GNU General Public License for more details. |
|---|
| 15 |
|
|---|
| 16 |
;;; File: package.lisp |
|---|
| 17 |
;;; Description: cl-smtp package definition file |
|---|
| 18 |
|
|---|
| 19 |
(in-package :cl-user) |
|---|
| 20 |
|
|---|
| 21 |
(defpackage :cl-smtp |
|---|
| 22 |
(:use :cl :asdf :flexi-streams :trivial-gray-streams) |
|---|
| 23 |
(:export "SEND-EMAIL" |
|---|
| 24 |
"WITH-SMTP-MAIL" |
|---|
| 25 |
"SMTP-ERROR" |
|---|
| 26 |
"SMTP-PROTOCOL-ERROR" |
|---|
| 27 |
"NO-SUPPORTED-AUTHENTICATION-METHOD" |
|---|
| 28 |
"RCPT-FAILED" |
|---|
| 29 |
"IGNORE-RECIPIENT")) |
|---|
| 30 |
|
|---|
| 31 |
(in-package :cl-smtp) |
|---|
| 32 |
|
|---|
| 33 |
(defparameter *debug* nil) |
|---|
| 34 |
|
|---|
| 35 |
(defmacro print-debug (str) |
|---|
| 36 |
`(when *debug* |
|---|
| 37 |
(print ,str))) |
|---|
| 38 |
|
|---|