+;;;###autoload
+(defcustom package-get-pre-release-download-sites
+ '(
+ ;; Main XEmacs Site (ftp.xemacs.org)
+ ("US Pre-Releases (Main XEmacs Site)" "ftp.xemacs.org"
+ "pub/xemacs/beta/experimental/packages")
+ ;; In alphabetical order of Country, our mirrors...
+ ("Argentina Pre-Releases (xmundo.net)" "xemacs.xmundo.net"
+ "pub/mirrors/xemacs/beta/experimental/packages")
+ ("Australia Pre-Releases (aarnet.edu.au)" "mirror.aarnet.edu.au"
+ "pub/xemacs/beta/experimental/packages")
+ ("Australia Pre-Releases (au.xemacs.org)" "ftp.au.xemacs.org"
+ "pub/xemacs/beta/experimental/packages")
+ ("Austria Pre-Releases (at.xemacs.org)" "ftp.at.xemacs.org"
+ "editors/xemacs/beta/experimental/packages")
+ ("Belgium (be.xemacs.org)" "ftp.be.xemacs.org"
+ "xemacs/beta/experimental/packages")
+ ("Brazil Pre-Releases (br.xemacs.org)" "ftp.br.xemacs.org"
+ "pub/xemacs/xemacs-21.5/experimental/packages")
+ ("Canada Pre-Releases (ca.xemacs.org)" "ftp.ca.xemacs.org"
+ "pub/Mirror/xemacs/beta/experimental/packages")
+ ("Canada Pre-Releases (nrc.ca)" "ftp.nrc.ca"
+ "pub/packages/editors/xemacs/beta/experimental/packages")
+; ;; no anonymous ftp available:
+; ("Chile Pre-Releases (cl.xemacs.org)" "ftp.cl.xemacs.org"
+; "beta/experimental/packages")
+ ("Czech Republic Pre-Releases (cz.xemacs.org)" "ftp.cz.xemacs.org"
+ "MIRRORS/ftp.xemacs.org/pub/xemacs/xemacs-21.5/experimental/packages")
+ ("Denmark Pre-Releases (dk.xemacs.org)" "ftp.dk.xemacs.org"
+ "xemacs/beta/experimental/packages")
+ ("Finland Pre-Releases (fi.xemacs.org)" "ftp.fi.xemacs.org"
+ "pub/mirrors/ftp.xemacs.org/pub/tux/xemacs/beta/experimental/packages")
+ ("France Pre-Releases (fr.xemacs.org)" "ftp.fr.xemacs.org"
+ "pub/xemacs/beta/experimental/packages")
+ ("France Pre-Releases (mirror.cict.fr)" "mirror.cict.fr"
+ "xemacs/beta/experimental/packages")
+ ("France Pre-Releases (pasteur.fr)" "ftp.pasteur.fr"
+ "pub/computing/xemacs/beta/experimental/packages")
+ ("Germany Pre-Releases (de.xemacs.org)" "ftp.de.xemacs.org"
+ "pub/ftp.xemacs.org/tux/xemacs/beta/experimental/packages")
+ ("Greece Pre-Releases (gr.xemacs.org)" "ftp.gr.xemacs.org"
+ "mirrors/XEmacs/ftp/beta/experimental/packages")
+ ("Hong Kong Pre-Releases (hk.xemacs.org)" "ftp.hk.xemacs.org"
+ "pub/xemacsftp/beta/experimental/packages")
+ ("Ireland Pre-Releases (ie.xemacs.org)" "ftp.ie.xemacs.org"
+ "mirrors/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
+ ("Ireland Pre-Releases (heanet.ie)" "ftp.heanet.ie"
+ "mirrors/ftp.xemacs.org/beta/experimental/packages")
+ ("Italy Pre-Releases (it.xemacs.org)" "ftp.it.xemacs.org"
+ "unix/packages/XEMACS/beta/experimental/packages")
+ ("Japan Pre-Releases (dti.ad.jp)" "ftp.dti.ad.jp"
+ "pub/unix/editor/xemacs/beta/experimental/packages")
+; ("Japan Pre-Releases (jaist.ac.jp)" "ftp.jaist.ac.jp"
+; "pub/GNU/xemacs/beta/experimental/packages")
+ ("Japan Pre-Releases (jp.xemacs.org)" "ftp.jp.xemacs.org"
+ "pub/text/xemacs/beta/experimental/packages")
+ ("Korea (kr.xemacs.org)" "ftp.kr.xemacs.org"
+ "pub/tools/emacs/xemacs/beta/experimental/packages")
+ ("Netherlands (nl.xemacs.org)" "ftp.nl.xemacs.org"
+ "pub/xemacs/ftp/beta/experimental/packages")
+ ("Norway Pre-Releases (no.xemacs.org)" "ftp.no.xemacs.org"
+ "pub/xemacs/beta/experimental/packages")
+ ("Portugal Pre-Releases (pt.xemacs.org)" "ftp.pt.xemacs.org"
+ "pub/MIRRORS/ftp.xemacs.org/beta/experimental/packages")
+ ("Russia Pre-Releases (ru.xemacs.org)" "ftp.ru.xemacs.org"
+ "pub/emacs/xemacs/beta/experimental/packages")
+ ("Saudi Arabia (sa.xemacs.org)" "ftp.sa.xemacs.org"
+ "pub/xemacs.org/beta/experimental/packages")
+ ("Sweden Pre-Releases (se.xemacs.org)" "ftp.se.xemacs.org"
+ "pub/gnu/xemacs/beta/experimental/packages")
+ ("Switzerland Pre-Releases (ch.xemacs.org)" "ftp.ch.xemacs.org"
+ "mirror/xemacs/beta/experimental/packages")
+ ("Taiwan Pre-Releases (ftp.tw.xemacs.org)" "ftp.tw.xemacs.org"
+ "Unix/Editors/XEmacs/beta/experimental/packages")
+ ("UK Pre-Releases (uk.xemacs.org)" "ftp.uk.xemacs.org"
+ "sites/ftp.xemacs.org/pub/xemacs/beta/experimental/packages")
+ ("US Pre-Releases (ibiblio.org)" "mirrors.ibiblio.org"
+ "pub/mirrors/xemacs/beta/experimental/packages")
+ ("US Pre-Releases (us.xemacs.org)" "ftp.us.xemacs.org"
+ "pub/mirrors/xemacs/beta/experimental/packages")
+)
+ "*List of remote sites available for downloading \"Pre-Release\" packages.
+List format is '(site-description site-name directory-on-site).
+SITE-DESCRIPTION is a textual description of the site. SITE-NAME
+is the internet address of the download site. DIRECTORY-ON-SITE
+is the directory on the site in which packages may be found.
+This variable is used to initialize `package-get-remote', the
+variable actually used to specify package download sites."
+ :tag "Pre-Release Package download sites"
+ :type '(repeat (list (string :tag "Name") host-name directory))
+ :group 'package-get)
+
+;;;###autoload
+(defcustom package-get-site-release-download-sites
+ nil
+ "*List of remote sites available for downloading \"Site Release\" packages.
+List format is '(site-description site-name directory-on-site).
+SITE-DESCRIPTION is a textual description of the site. SITE-NAME
+is the internet address of the download site. DIRECTORY-ON-SITE
+is the directory on the site in which packages may be found.
+This variable is used to initialize `package-get-remote', the
+variable actually used to specify package download sites."
+ :tag "Site Release Package download sites"
+ :type '(repeat (list (string :tag "Name") host-name directory))
+ :group 'package-get)
+