33f
@verb #3852:"fixsubs" any none none rdo #3852
@program #3852:"fixsubs" any none none
"Copied from Quadir (#9780):fixsubs Apr  3 00:00:59 2002"
for z in ($mail_agent:all_contents())
  sub = player in z:subscribers()
  if (argstr == "own" && !sub)
    continue
  endif
  x = 0
  while (x == 0)
    suspend(1)
    player:tell("Keep ", z:nn(), "? (", sub ? "subscribed" | "unsubscribed", ") [yes/no]")
    x = $cmd_utils:read()
    if (x in {"yes", "y"})
      if (!sub)
        force_input(player, tostr("@subscribe ", z, " with n"))
      else
        player:tell("Keeping newsgroup...")
      endif
    elseif (x in {"no", "n"})
      force_input(player, tostr("@unsubscribe ", z))
    else
      x = 0
    endif
    $cmd_utils:suspend_if_needed(0)
  endwhile
  $cmd_utils:suspend_if_needed(0)
endfor
.

0