pager: use loadinfo for redirection message, not alert

alert has a tendency to pile up redirection infos. This is annoying and
may obscure the "too many redirections" error message.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/local/pager.nim b/src/local/pager.nim
index 984b3ec5..de80b9b6 100644
--- a/src/local/pager.nim
+++ b/src/local/pager.nim
@@ -1372,9 +1372,10 @@ proc checkMailcap(pager: Pager; container: Container; stream: SocketStream;
   return CheckMailcapResult(connect: false, fdout: -1)
 
 proc redirectTo(pager: Pager; container: Container; request: Request) =
-  pager.alert("Redirecting to " & $request.url)
   pager.gotoURL(request, some(container.url), replace = container,
     redirectdepth = container.redirectdepth + 1, referrer = container)
+  pager.container.loadinfo = "Redirecting to " & $request.url
+  pager.onSetLoadInfo(pager.container)
   dec pager.numload
 
 proc fail(pager: Pager; container: Container; errorMessage: string) =