(let ((the-object (email-address 'search 'address the-email-address)))
					(cond
					  ((null? the-object)
					   (make))
					  ((= 1 (length the-object))
					   ; #t if it's for account-id, otherwise #f
					   )
					  (else
					    #f)))