// Copyright by Mike Babulic   2003/08/26
// Permission is given to modify and/or copy this document, so long as this copyright notice is retained

// Source Code: http://www.cuug.ab.ca/~babulicm/spam
var edress_protocol = "mailto"
var edress_domain_default = "seattletech.com"
var edress_domain   = edress_domain_default

function edress_str() {
  var name = arguments[0]
  var domain = (arguments.length>1) ? arguments[1] : edress_domain
  return name+"@"+domain
}

function  edress_write() { //
  var name = arguments[0]
  var domain = (arguments.length>1) ? arguments[1] : edress_domain
  document.write(edress_str(name,domain))
}

function edress_anchor () {
  var name = arguments[0]
  var domain = (arguments.length>1) ? arguments[1] : edress_domain
  document.write("<a href=\"",edress_protocol,":",edress_str(name,domain),"\">")
}

function edress_link () {
  var name = arguments[0]
  var domain = (arguments.length>1) ? arguments[1] : edress_domain
  if (domain == "") domain = edress_domain
  var clicktext = (arguments.length>2) ? arguments[2] : edress_str(name,domain)
  if (clicktext == "") clicktext = edress_str(name,domain)
  edress_anchor(name,domain)
  document.write(clicktext)
  document.write("</a>")
}


function edress_longlink () {
  var n = 0
  var name = arguments[n++]
  var domain = (arguments.length>4) ? arguments[n++] : edress_domain
  var pred_str = arguments[n++]
  var click_str = arguments[n++]
  var succ_str = arguments[n++]
  document.write(pred_str)
  edress_anchor(name,domain)
  document.write(click_str)
  document.write("</a>")
  document.write(succ_str)
}

function aClick () {
  var name = arguments[0]
  var domain = (arguments.length>1) ? arguments[1] : edress_domain
  location.href=edress_protocol+":"+edress_str(name,domain)
  return false
}

function aHover () {
  var thisLink = arguments[0]
  var name = arguments[1]
  var domain = (arguments.length>2) ? arguments[2] : edress_domain
  thisLink.href = edress_protocol+":"+edress_str(name,domain)
}
