X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/utils/blobdiff_plain/b25fe76c94516413532bbd6f9ecb40975351eb59..f42a91ed7a0c835b98b3193cc8a29687b36f2f3a:/nntpid/nntpid

diff --git a/nntpid/nntpid b/nntpid/nntpid
index 298dbf3..f1544bb 100755
--- a/nntpid/nntpid
+++ b/nntpid/nntpid
@@ -174,7 +174,12 @@ sub getline {
 
 sub docmd {
   my ($cmd) = @_;
-  while (1) {
+  # We go at most twice round the following loop. If the first attempt
+  # to fetch the article fails with a 480 response, we try again
+  # having authenticated first; but if the second attempt also fails
+  # with 480, then the authentication didn't work, so we should give
+  # up rather than try it pointlessly again.
+  for my $n (0,1) {
     &putline($cmd);
     $line = &getline;
     if ($code eq "480") { &auth; } else { last; }