X-Git-Url: http://git.kpe.io/?p=postoffice.git;a=blobdiff_plain;f=smtp.lisp;fp=smtp.lisp;h=88dc4942f1332950a0238cb5be4e8199b11c32ec;hp=458ca2743d79f11a4a5744aed50cd49b68f8e946;hb=922eb9604ed32d3412e71cb41530dfa8a0216ef0;hpb=7c64c46ac800ace1998a50736e6e4e2f01e07678

diff --git a/smtp.lisp b/smtp.lisp
index 458ca27..88dc494 100644
--- a/smtp.lisp
+++ b/smtp.lisp
@@ -23,7 +23,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: smtp.lisp,v 1.3 2002/10/16 01:35:48 kevin Exp $
+;; $Id: smtp.lisp,v 1.4 2002/10/16 02:10:56 kevin Exp $
 
 ;; Description:
 ;;   send mail to an smtp server.  See rfc821 for the spec.
@@ -251,9 +251,9 @@
     (if* (null ipaddr)
        then (error "Can't determine ip addres for mail server ~s" server))
     
-    (setq sock (make-socket :remote-host ipaddr
-				   :remote-port 25  ; smtp
-				   ))
+    (setq sock (make-socket :remote-host #+allegro ipaddr #-allegro server
+			    :remote-port 25  ; smtp
+			    ))
     (unwind-protect
 	(progn
 	  (response-case (sock msg)