From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 16 Oct 2002 01:38:51 +0000 (+0000)
Subject: r3040: *** empty log message ***
X-Git-Url: http://git.kpe.io/?p=postoffice.git;a=commitdiff_plain;h=7c64c46ac800ace1998a50736e6e4e2f01e07678

r3040: *** empty log message ***
---

diff --git a/debian/changelog b/debian/changelog
index 58b268f..30a6a5b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-postoffice (1.8.1-1) unstable; urgency=low
+
+  * Rework dns-query for non-allegro systems
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 15 Oct 2002 19:35:17 -0600
+
 cl-postoffice (1.8-1) unstable; urgency=low
 
   * Initial Release (closes: #163953)
diff --git a/smtp.lisp b/smtp.lisp
index 0b374b1..458ca27 100644
--- a/smtp.lisp
+++ b/smtp.lisp
@@ -23,7 +23,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: smtp.lisp,v 1.2 2002/10/09 23:28:41 kevin Exp $
+;; $Id: smtp.lisp,v 1.3 2002/10/16 01:35:48 kevin Exp $
 
 ;; Description:
 ;;   send mail to an smtp server.  See rfc821 for the spec.
@@ -463,17 +463,19 @@
 			(dotted-to-ipaddr name :errorp nil)))
        then ipaddr
        else ; do mx lookup if acldns is being used
-#|
-	    (if* (or (eq *dns-mode* :acldns)
-		     (member :acldns *dns-mode* :test #'eq))
-	       then (let ((res (dns-query name :type :mx)))
-		      (if* (and res (consp res))
-			 then (cadr res) ; the ip address
-			 else (dns-query name :type :a)))
-	       else ; just do a hostname lookup
-|#
-       (ignore-errors (lookup-hostname name)))))
-;; )
+       #+allegro
+       (if* (or (eq *dns-mode* :acldns)
+		(member :acldns *dns-mode* :test #'eq))
+	    then (let ((res (dns-query name :type :mx)))
+		   (if* (and res (consp res))
+			then (cadr res) ; the ip address
+			else (dns-query name :type :a)))
+	    else ; just do a hostname lookup
+	    (ignore-errors (lookup-hostname name)))
+       #-allegro
+       (ignore-errors (lookup-hostname name))
+       ))
+  )