@@ -1,3 +1,7 @@

+2003-01-10  Kevin Layer  <layer@crikey>

+

+	* smtp.cl: test-email-address: do VRFY on address, too.

+

 2002-06-17  Kevin Layer  <layer@crikey>

 	* smtp.cl: fix typo in error message; fix from jkf that never got

@@ -23,7 +23,7 @@

 ;; Suite 330, Boston, MA  02111-1307  USA

 ;;

 ;;

-;; $Id: smtp.cl,v 1.6 2002/06/17 19:41:42 layer Exp $

+;; $Id: smtp.cl,v 1.7 2003/01/10 16:15:55 layer Exp $

 ;; Description:

 ;;   send mail to an smtp server.  See rfc821 for the spec.

@@ -325,8 +325,17 @@

 		  then ; no such user

 		       msg ; to remove unused warning

 		       nil

-		  else t ; otherwise we don't know

-		       ))

+		  else ;; otherwise we don't know

+		       (return-from test-email-address t)))

+	      (t (return-from test-email-address t)))

+	    (smtp-command sock "VRFY ~a" address)

+	    (response-case (sock msg code)

+	      (5

+	       (if* (eq code 550)

+		  then ; no such user

+		       msg ; to remove unused warning

+		       nil

+		  else t))

 	      (t t)))

 	(close sock :abort t)))))