Someone

  alias -l as.sendqueue {
    if ($hget(as.queue,a1) == $null) || ($hget(as.queue,max) <= 0) { .timeras.queue off | return }
@-    sockwrite -n antispam $hget(as.queue,a1)
@+    if ($asini(general,relayallmessage) == no) {
@+      if ($gettok($hget(as.queue,a1),3,32) == [none]) { } 
@+    else sockwrite -n antispam $hget(as.queue,a1)
@+    } else sockwrite -n antispam $hget(as.queue,a1)
    var %antispam.start = 2
    var %antispam.end = $hget(as.queue,max)
    while (%antispam.start <= %antispam.end) {
      var %antispam.cur = a $+ $calc(%antispam.start - 1)
      var %antispam.las = a $+ %antispam.start
      if ($hget(as.queue,%antispam.las)) hadd as.queue %antispam.cur $hget(as.queue,%antispam.las)
      inc %antispam.start
    }
    var %antispam.las = a $+ $hget(as.queue,max)
    hdel as.queue %antispam.las
    hadd as.queue max $calc($hget(as.queue,max) - 1)
  }