From c7c4d4bb15e3bd63eb0ea41d7979c6ca1544b91e Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@neel.cnrs.fr>
Date: Sun, 16 Oct 2022 07:15:58 +0200
Subject: [PATCH] Show explicitly how to access the official MELPA mirror

---
 README.org | 39 ++++++++++++++++++++++-----------------
 1 file changed, 22 insertions(+), 17 deletions(-)

diff --git a/README.org b/README.org
index 9e04e38..6131e3d 100644
--- a/README.org
+++ b/README.org
@@ -202,23 +202,27 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
 #+name: lst:2nd-custom-set-variables-call
 #+begin_src emacs-lisp
   (custom-set-variables
-   '(package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
-                        ("gnu-devel" . "https://elpa.gnu.org/devel/")
-                        ("melpa" . "https://melpa.org/packages/")
-                        ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
+   ;; See https://github.com/melpa/melpa#mirrors for official Melpa mirrors.
+   '(package-archives
+     '(("gnu" . "https://elpa.gnu.org/packages/")
+       ("gnu-devel" . "https://elpa.gnu.org/devel/")
+       ("melpa" . "https://melpa.org/packages/")
+       ;; ("melpa" . "https://www.mirrorservice.org/sites/melpa.org/packages/")
+       ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
    ;; Pin packages to GNU ELPA for info or stability.
-   '(package-pinned-packages '((auctex . "gnu")
-                               (compat . "gnu")
-                               (consult . "gnu")
-                               (engrave-faces . "gnu")
-                               (marginalia . "gnu")
-                               (org . "gnu-devel")
-                               (python . "gnu-devel")
-                               (queue . "gnu")
-                               (rainbow-mode . "gnu")
-                               (spinner . "gnu")
-                               (xr . "gnu")
-                               (vertico . "gnu"))))
+   '(package-pinned-packages
+     '((auctex . "gnu")
+       (compat . "gnu")
+       (consult . "gnu")
+       (engrave-faces . "gnu")
+       (marginalia . "gnu")
+       (org . "gnu-devel")
+       (python . "gnu-devel")
+       (queue . "gnu")
+       (rainbow-mode . "gnu")
+       (spinner . "gnu")
+       (xr . "gnu")
+       (vertico . "gnu"))))
 #+end_src
 
 #+caption[Customize the third set of Emacs variables]:
@@ -282,7 +286,8 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
 archives:
 1. The [[https://elpa.gnu.org/][GNU Emacs Lisp Package Archive]]
 2. The [[https://elpa.nongnu.org/][NonGNU Emacs Lisp Package Archive]].
-3. The [[https://melpa.org/#/][Milkypostman's Emacs Lisp Package Archive (MELPA)]].
+3. The [[https://melpa.org/#/][Milkypostman's Emacs Lisp Package Archive (MELPA)]] with its official
+   [[https://www.mirrorservice.org/sites/melpa.org/packages/][mirror]] in case [[https://downforeveryoneorjustme.com/melpa.org][is Melpa.org down?]] tells [[https://melpa.org/#/][MELPA]] is down for everyone.
 The code in listing [[lst:install-selected-packages]] assumes that the package
 system is in a *virgin* state if the package [[https://github.com/emacscollective/no-littering][no-littering]] is not present:
 1. It installs and loads [[https://github.com/emacscollective/no-littering][no-littering]] after ensuring refreshing of the