anchor.diff:          (:tls
            ;; Plain SSL connection
            (convert-connection-to-ssl)
  +         (do-ehlo))
  +        ((nil)
            (do-ehlo))))
       (when authentication
         (smtp-authenticate stream authentication features)))
  
positive.code:       (funcall thunk stream)
        (finish-smtp-mail stream))))
  
  (defmacro with-smtp-mail ((stream-var host port from to &key authentication ssl local-hostname)
                            &body body)
    "Encapsulate a SMTP MAIl conversation.  A connection to the SMTP
     server on HOST and PORT is established and a MAIL command is
  
negative.code:    recipients.  BODY is evaluated with STREAM-VAR being the stream
     connected to the remote SMTP server.  BODY is expected to write the
     RFC2821 message (headers and body) to STREAM-VAR."
    `(do-with-smtp-mail ,host ,from ,to
                        (lambda (,stream-var) ,@body)
                        :port ,port
                        :authentication ,authentication 
                        :ssl ,ssl
                        :local-hostname ,local-hostname))
  
  (defun send-email (host from to subject message 
  		   &key ssl (port (if (eq :tls ssl) 465 25)) cc bcc reply-to extra-headers
  		   html-message display-name authentication
  		   attachments (buffer-size 256))
    (send-smtp host from (check-arg to "to") subject (mask-dot message)
  	     :port port :cc (check-arg cc "cc") :bcc (check-arg bcc "bcc")
  	     :reply-to reply-to 
  