diff --git a/R/gutenberg_download.R b/R/gutenberg_download.R
index 63b9635..aea4889 100644
--- a/R/gutenberg_download.R
+++ b/R/gutenberg_download.R
@@ -26,19 +26,19 @@
 #' }
 #'
 #' @examplesIf interactive()
-#'   # download The Count of Monte Cristo
-#'   gutenberg_download(1184)
-#'
-#'   # download two books: Wuthering Heights and Jane Eyre
-#'   books <- gutenberg_download(c(768, 1260), meta_fields = "title")
-#'   books
-#'   dplyr::count(books, title)
-#'
-#'   # download all books from Jane Austen
-#'   austen <- gutenberg_works(author == "Austen, Jane") |>
-#'     gutenberg_download(meta_fields = "title")
-#'   austen
-#'   dplyr::count(austen, title)
+#' # download The Count of Monte Cristo
+#' gutenberg_download(1184)
+#'
+#' # download two books: Wuthering Heights and Jane Eyre
+#' books <- gutenberg_download(c(768, 1260), meta_fields = "title")
+#' books
+#' dplyr::count(books, title)
+#'
+#' # download all books from Jane Austen
+#' austen <- gutenberg_works(author == "Austen, Jane") |>
+#'   gutenberg_download(meta_fields = "title")
+#' austen
+#' dplyr::count(austen, title)
 #'
 #' @export
 gutenberg_download <- function(gutenberg_id,
diff --git a/R/gutenberg_mirrors.R b/R/gutenberg_mirrors.R
index bc9e704..c6188b9 100644
--- a/R/gutenberg_mirrors.R
+++ b/R/gutenberg_mirrors.R
@@ -23,7 +23,8 @@ gutenberg_get_mirror <- function(verbose = TRUE) {
   harvest_url <- "https://www.gutenberg.org/robot/harvest"
   maybe_message(
     verbose,
-    "Determining mirror for Project Gutenberg from {harvest_url}."
+    "Determining mirror for Project Gutenberg from {harvest_url}.",
+    class = "mirror-finding"
   )
   wget_url <- glue::glue("{harvest_url}?filetypes[]=txt")
   lines <- read_url(wget_url)
@@ -32,13 +33,12 @@ gutenberg_get_mirror <- function(verbose = TRUE) {
 
   # parse and leave out the path
   parsed <- urltools::url_parse(mirror_full_url)
-  if (parsed$domain == "www.gutenberg.lib.md.us") {
-    # Broken mirror. PG has been contacted. For now, replace:
-    parsed$domain <- "aleph.gutenberg.org" # nocov
-  }
-
   mirror <- unclass(glue::glue_data(parsed, "{scheme}://{domain}"))
-  maybe_message(verbose, "Using mirror {mirror}.")
+  maybe_message(
+    verbose,
+    "Using mirror {mirror}.",
+    class = "mirror-found"
+  )
 
   # set option for next time
   options(gutenberg_mirror = mirror)
@@ -48,7 +48,10 @@ gutenberg_get_mirror <- function(verbose = TRUE) {
 
 #' Get all mirror data from Project Gutenberg
 #'
-#' Get all the mirror data from \url{https://www.gutenberg.org/MIRRORS.ALL}
+#' Get all mirror data from \url{https://www.gutenberg.org/MIRRORS.ALL}. This
+#' only includes mirrors reported to Project Gutenberg and verified to be
+#' relatively stable. For more information on mirroring and getting your own
+#' mirror listed, see \url{https://www.gutenberg.org/help/mirroring.html}.
 #'
 #' @return A tbl_df of Project Gutenberg mirrors and related data
 #' \describe{
diff --git a/R/gutenberg_strip.R b/R/gutenberg_strip.R
index 4d338c6..0fe06d1 100644
--- a/R/gutenberg_strip.R
+++ b/R/gutenberg_strip.R
@@ -55,7 +55,7 @@ gutenberg_strip <- function(text) {
   )
   while (
     length(text) > 0 &&
-    stringr::str_detect(stringr::str_to_lower(text[1]), start_paragraph_regex)
+      stringr::str_detect(stringr::str_to_lower(text[1]), start_paragraph_regex)
   ) {
     # get rid of that paragraph, then the following whitespace
     text <- discard_start_while(text, text != "")
diff --git a/R/utils.R b/R/utils.R
index acd7087..37ccf49 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -58,8 +58,17 @@ discard_end_while <- function(.x, .p) {
   rev(discard_start_while(rev(.x), rev(.p)))
 }
 
-maybe_message <- function(verbose, message, ..., call = rlang::caller_env()) {
+maybe_message <- function(verbose,
+                          message,
+                          class = NULL,
+                          ...,
+                          call = rlang::caller_env()) {
   if (verbose) {
-    cli::cli_inform(message, ..., .envir = call)
+    if (length(class)) {
+      class <- paste0("gutenbergr-msg-", class)
+    } else {
+      class <- "gutenbergr-msg"
+    }
+    cli::cli_inform(message, class = class, ..., .envir = call)
   }
 }
diff --git a/man/gutenberg_download.Rd b/man/gutenberg_download.Rd
index b965b1e..6923623 100644
--- a/man/gutenberg_download.Rd
+++ b/man/gutenberg_download.Rd
@@ -46,18 +46,18 @@ using \code{\link[=gutenberg_works]{gutenberg_works()}} or the \link{gutenberg_m
 }
 \examples{
 \dontshow{if (interactive()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
-  # download The Count of Monte Cristo
-  gutenberg_download(1184)
+# download The Count of Monte Cristo
+gutenberg_download(1184)
 
-  # download two books: Wuthering Heights and Jane Eyre
-  books <- gutenberg_download(c(768, 1260), meta_fields = "title")
-  books
-  dplyr::count(books, title)
+# download two books: Wuthering Heights and Jane Eyre
+books <- gutenberg_download(c(768, 1260), meta_fields = "title")
+books
+dplyr::count(books, title)
 
-  # download all books from Jane Austen
-  austen <- gutenberg_works(author == "Austen, Jane") |>
-    gutenberg_download(meta_fields = "title")
-  austen
-  dplyr::count(austen, title)
+# download all books from Jane Austen
+austen <- gutenberg_works(author == "Austen, Jane") |>
+  gutenberg_download(meta_fields = "title")
+austen
+dplyr::count(austen, title)
 \dontshow{\}) # examplesIf}
 }
diff --git a/man/gutenberg_get_all_mirrors.Rd b/man/gutenberg_get_all_mirrors.Rd
index 87c9e3f..507c00f 100644
--- a/man/gutenberg_get_all_mirrors.Rd
+++ b/man/gutenberg_get_all_mirrors.Rd
@@ -24,7 +24,10 @@ A tbl_df of Project Gutenberg mirrors and related data
 }
 }
 \description{
-Get all the mirror data from \url{https://www.gutenberg.org/MIRRORS.ALL}
+Get all mirror data from \url{https://www.gutenberg.org/MIRRORS.ALL}. This
+only includes mirrors reported to Project Gutenberg and verified to be
+relatively stable. For more information on mirroring and getting your own
+mirror listed, see \url{https://www.gutenberg.org/help/mirroring.html}.
 }
 \examples{
 \dontshow{if (interactive()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
diff --git a/tests/testthat/test-gutenberg_mirrors.R b/tests/testthat/test-gutenberg_mirrors.R
index 5af7b14..34f0835 100644
--- a/tests/testthat/test-gutenberg_mirrors.R
+++ b/tests/testthat/test-gutenberg_mirrors.R
@@ -2,11 +2,16 @@ test_that("gutenberg_get_mirror works with no option set", {
   local_dl_and_read()
   withr::local_options(gutenberg_mirror = NULL)
   expect_message(
-    expect_identical(
-      gutenberg_get_mirror(),
-      "http://aleph.gutenberg.org"
+    expect_message(
+      expect_identical(
+        gutenberg_get_mirror(),
+        "http://aleph.gutenberg.org"
+      ),
+      "Determining mirror",
+      class = "gutenbergr-msg-mirror-finding"
     ),
-    "Determining mirror"
+    "Using mirror",
+    class = "gutenbergr-msg-mirror-found"
   )
   expect_no_message(
     expect_identical(