From 7c64c46ac800ace1998a50736e6e4e2f01e07678 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 16 Oct 2002 01:38:51 +0000 Subject: [PATCH] r3040: *** empty log message *** --- debian/changelog | 6 ++++++ smtp.lisp | 26 ++++++++++++++------------ 2 files changed, 20 insertions(+), 12 deletions(-) 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 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)) + )) + ) -- 2.34.1