chore: use mirror source first

Author: jcs090218

scripts/_prepare.el

@@ -7,6 +7,12 @@
 (require 'request)
 (require 's)
 
+(defconst ftp-source "https://ftp.gnu.org/gnu/emacs/windows/"
+  "The source.")
+
+(defconst ftp-source-snapshot "https://alpha.gnu.org/gnu/emacs/pretest/windows/"
+  "The snapshot source.")
+
 (defun get-major-version (response)
   "Return the latest snapshot string."
   (let ((data (request-response-data response)))

scripts/update-snapshot.el

@@ -44,15 +44,15 @@
 
 The argument DIR is a string like `emacs-30'; therefore, we will need
 to form the new url ourselves."
-  (let ((new-dir (concat "https://alpha.gnu.org/gnu/emacs/pretest/windows/" dir "/")))
+  (let ((new-dir (concat ftp-source-snapshot dir "/")))
     (request new-dir
       :sync t
       :complete
       (cl-function
        (lambda (&key response &allow-other-keys)
          (update-snapshot-to-src new-dir response))))))
 
-(request "https://alpha.gnu.org/gnu/emacs/pretest/windows/"
+(request ftp-source-snapshot
   :sync t
   :complete
   (cl-function

scripts/update-stable.el

@@ -65,7 +65,7 @@ For example, `emacs-29.1_2.zip' to `29.1.2'."
 
 The argument DIR is a string like `emacs-30'; therefore, we will need
 to form the new url ourselves."
-  (let ((new-dir (concat "https://ftp.gnu.org/gnu/emacs/windows/" dir "/")))
+  (let ((new-dir (concat ftp-source dir "/")))
     (request new-dir
       :sync t
       :complete
@@ -75,7 +75,7 @@ to form the new url ourselves."
            (update-gha-workflow latest)
            (update-stable-to-src latest)))))))
 
-(request "https://ftp.gnu.org/gnu/emacs/windows/"
+(request ftp-source
   :sync t
   :complete
   (cl-function

src/main.ts

@@ -96,8 +96,9 @@ async function run(): Promise<void> {
 
         const version = core.getInput("version");
 
-        const emacsZip = await downloadEmacs("https://ftp.gnu.org/gnu/emacs/windows/", version)
-            ?? await downloadEmacs("https://ftp.man.poznan.pl/gnu/emacs/windows/", version);
+        const emacsZip =
+            await downloadEmacs("https://ftp.man.poznan.pl/gnu/emacs/windows/", version)
+            ?? await downloadEmacs("https://ftp.gnu.org/gnu/emacs/windows/", version);
 
         if (!emacsZip) {
             throw new Error("Failed to download Emacs from all sources.");