anchor.diff:                             :response-message msgstr))))
       lines))
   
  -(defun do-with-smtp-mail (host port from to thunk &key authentication ssl local-hostname)
  +(defun do-with-smtp-mail (host from to thunk &key port authentication ssl local-hostname)
     (usocket:with-client-socket (socket stream host port)
       (let ((stream (smtp-handshake stream
                                     :authentication authentication 
  
positive.code: 			      256)
  	     :ssl ssl))
  
  (defun send-smtp (host from to subject message 
  		  &key (port 25) cc bcc reply-to extra-headers html-message 
  		  display-name authentication attachments buffer-size ssl
                    (local-hostname (usocket::get-host-name)))
    (with-smtp-mail (stream host port from (append to cc bcc)
                            :authentication authentication 
                            :ssl ssl
                            :local-hostname local-hostname)
  
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 
  