Emacs Aquamacs未能下载melpa存档

我正在使用基于Emacs GNU Emacs 25.1.1的Aquamacs 3.3

My~/Library/./Preferences.el文件包含melpa的说明

(require 'package)
;; Marmalade
;;(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

我将调试切换为开启错误，以便获得以下消息：为什么：

Debugger entered--Lisp error: (error "Archive location https://stable.melpa.org/packages/ is not an absolute file name")
signal(error ("Archive location https://stable.melpa.org/packages/ is not an absolute file name"))
#[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308]("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/")
apply(#[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308] ("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/"))
(with-no-warnings (apply ad--addoit-function args))
(setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))
(if aquamacs-ring-bell-on-error-flag (progn (aquamacs-bell) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args))))
(let (ad-return-value) (if aquamacs-ring-bell-on-error-flag (progn (aquamacs-bell) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))) ad-return-value)
ad-Advice-error(#[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308] "Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/")
apply(ad-Advice-error #[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308] ("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/"))
error("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/")
(if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive)))
(if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive))))
(save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let ((version-control (quote never))) (save-buffer)))))
(prog1 (save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let ((version-control (quote never))) (save-buffer))))) (kill-buffer buffer))
(let* ((http (string-match "\\`http:" (cdr archive))) (buffer (if http (url-retrieve-synchronously (concat (cdr archive) file)) (generate-new-buffer "*package work buffer*")))) (prog1 (save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let ((version-control ...)) (save-buffer))))) (kill-buffer buffer)))
(let* ((dir (expand-file-name "archives" package-user-dir)) (dir (expand-file-name (car archive) dir))) (let* ((http (string-match "\\`http:" (cdr archive))) (buffer (if http (url-retrieve-synchronously (concat (cdr archive) file)) (generate-new-buffer "*package work buffer*")))) (prog1 (save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let (...) (save-buffer))))) (kill-buffer buffer))))
package--download-one-archive(("melpa-stable" . "https://stable.melpa.org/packages/") "archive-contents")
(condition-case nil (package--download-one-archive archive "archive-contents") ((debug error) (message "Failed to download `%s' archive." (car archive))))
(while --dolist-tail-- (setq archive (car --dolist-tail--)) (condition-case nil (package--download-one-archive archive "archive-contents") ((debug error) (message "Failed to download `%s' archive." (car archive)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(let ((--dolist-tail-- package-archives) archive) (while --dolist-tail-- (setq archive (car --dolist-tail--)) (condition-case nil (package--download-one-archive archive "archive-contents") ((debug error) (message "Failed to download `%s' archive." (car archive)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
package-refresh-contents()
package-list-packages()
funcall-interactively(package-list-packages)
call-interactively(package-list-packages record nil)
command-execute(package-list-packages record)
execute-extended-command(nil "package-list-packages" "package-li")
funcall-interactively(execute-extended-command nil "package-list-packages" "package-li")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)

我认为消息中带有尾随斜杠的位置（所以不让我在这里输入）是绝对的

其他遇到类似情况的人也有 1） melpa站点已关闭或正在重建。我的emacs纯文本版可以很好地下载melpa。它仰慕我。 2） 运行Emacs24。我在25号

---

这是什么原因造成的？如何修复它？

看起来您仍在尝试访问melpa stable，但您的init表明您正在尝试连接melpa。回溯中有一些已编译的字节码。您的init文件没有字节码（编译）版本，是吗

---

除此之外，当Emacs没有使用gnuTLS支持构建时（因此无法使用https），我看到了类似这样的奇怪错误消息

看起来您仍在尝试访问melpa stable，但您的init表明您正在尝试连接melpa。回溯中有一些已编译的字节码。您的init文件没有字节码（编译）版本，是吗

---

除此之外，当Emacs没有使用gnuTLS支持构建时（因此无法使用https），我看到了类似这样的奇怪错误消息

看起来水陆战队和普通的战机在战斗。我在~/Library/Preferences/Aquamacs Emacs/customizations.el中发现了一些奇怪之处

---

我想这就是我需要的领先优势。

看起来Aquamac和普通的emacs在战斗。我在~/Library/Preferences/Aquamacs Emacs/customizations.el中发现了一些奇怪之处

---

我想这正是我需要的线索。

阿奎马克斯是一种奇怪的动物。我会到处看看。没有找到。emacs.elc。所有的.elc文件看起来都很明显是包的一部分。在包存档上做一个C-h v，看看它包含什么。看起来它仍在试图访问melpa stable，但您已将该线路通信完毕，因此出现了一些问题。您可能需要删除.emacs.d/elpa并重新开始。Aquamacs是一种奇怪的动物。我会到处看看。没有找到。emacs.elc。所有的.elc文件看起来都很明显是包的一部分。在包存档上做一个C-h v，看看它包含什么。看起来它仍在试图访问melpa stable，但您已将该线路通信完毕，因此出现了一些问题。您可能需要删除.emacs.d/elpa并重新开始。