|
Revision 2855, 1.1 KB
(checked in by hans, 2 years 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 | |
|---|
