r3040: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 58b268fe6dd43563f3e6f9558e4d8b1c1142dea1..30a6a5b8997ebf3ae379b24c710363eb37b3aa05 100644 (file)
--- 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 0b374b1d9ff1529a8c3e77bb85155c8714c0d82c..458ca2743d79f11a4a5744aed50cd49b68f8e946 100644 (file)
--- 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))
+       ))
+  )