2a5
@verb #7407:"fixsubs" none none none rdo #7407
@program #7407:"fixsubs" none none none
"Copied from Quadir (#9780):fixsubs Apr  2 23:42:17 2002"
for z in ($mail_agent:all_contents())
  x = 0
  while (x == 0)
    player:tell("Keep ", z:nn(), "? [yes/no]")
    x = $cmd_utils:read()
    if (x in {"yes", "y"})
      force_input(player, tostr("@subscribe ", z, " with n"))
    elseif (x in {"no", "n"})
      force_input(player, tostr("@unsubscribe ", z))
      return 0
    else
      x = 0
    endif
    $cmd_utils:suspend_if_needed(0)
  endwhile
  $cmd_utils:suspend_if_needed(0)
endfor
"Last modified by Cecil (#7407) on Tue Apr  2 23:42:17 2002 MST."
.

0