bug#20809: 25.0.50; package-list-packages never finishes async update if cert bad

[chad <yandros@gmail.com>]

On 14 Jun 2015, at 03:55, Artur Malabarba <bruce.connor.am@gmail.com> wrote:
> 
> Could we get a little more of that backtrace? :-) It might make it easier.

Absolutely! Let me know if the mailer gunks anything up.

This comes from launching emacs -Q and running:

  (setq debug-on-error ’t)
  (package-initialize)
  (add-to-list `package-archives '("marmalade" . "https://marmalade-repo.org/packages/") t)
  (package-list-packages)

and then saying “N” to the connection error popup.

~Chad

Debugger entered--Lisp error: (error "Could not create connection to marmalade-repo.org:443")
  signal(error ("Could not create connection to marmalade-repo.org:443"))
  error("Could not create connection to %s:%d" "marmalade-repo.org" 443)
  url-http([cl-struct-url "https" nil nil "marmalade-repo.org" nil "/packages/archive-contents" nil nil t silent t] #[257 "\211@\306=\203\x1f\0\307\302!\203\x13\0\302 \210\202\204\0\310\x01@A\x02AA\"\210\202\204\0eb\210\311\312\313\314#\204/\0\315\316p\"\210e`|\210\300A\300@\317 \320\321\322\x04\"\v\"\320\301\x02\"\323\x03!<\203\202\0\324\x02\325\"\210\f\203Z\0\300
\235\203i\0\326\x03\313\x03\313\327%\210\330\300!\210\202\202\0\331\x05\301\x05\302\332\333\334\335\336\300\x06\x0e\x06\x0e\x06
$\337\"\340\341%%\210\266\x05\342p!\207" [("marmalade" . "https://marmalade-repo.org/packages/") "archive-contents" #[0 "\301\300!\207" [("marmalade" . "https://marmalade-repo.org/packages/") package--update-downloads-in-progress] 2] package-user-dir package-check-signature package-unsigned-archives :error functionp signal search-forward "\n\n" nil noerror error "Invalid url response in buffer %s" buffer-string expand-file-name format "archives/%s" read-from-string make-directory t write-region silent package--update-downloads-in-progress package--check-signature make-byte-code 256 "\211\204\x13\0\f\305=\204\x13\0\306\300!\210\307\310\301\"\210\311\302\312\303\312\313%\210\211\203-\0\311\314\315\x03\316#\312\303\317P\312\313%\210\306\300!\207" vconcat vector [package-check-signature allow-unsigned package--update-downloads-in-progress error "Unsigned archive `%s'" write-region nil silent mapconcat epg-signature-to-string "\n" ".signed"] 7 "\n\n(fn &optional GOOD-SIGS)" kill-buffer] 20 "\n\n(fn STATUS)"] (nil) nil tls)
  url-https([cl-struct-url "https" nil nil "marmalade-repo.org" nil "/packages/archive-contents" nil nil t silent t] #[257 "\211@\306=\203\x1f\0\307\302!\203\x13\0\302 \210\202\204\0\310\x01@A\x02AA\"\210\202\204\0eb\210\311\312\313\314#\204/\0\315\316p\"\210e`|\210\300A\300@\317 \320\321\322\x04\"\v\"\320\301\x02\"\323\x03!<\203\202\0\324\x02\325\"\210\f\203Z\0\300
\235\203i\0\326\x03\313\x03\313\327%\210\330\300!\210\202\202\0\331\x05\301\x05\302\332\333\334\335\336\300\x06\x0e\x06\x0e\x06
$\337\"\340\341%%\210\266\x05\342p!\207" [("marmalade" . "https://marmalade-repo.org/packages/") "archive-contents" #[0 "\301\300!\207" [("marmalade" . "https://marmalade-repo.org/packages/") package--update-downloads-in-progress] 2] package-user-dir package-check-signature package-unsigned-archives :error functionp signal search-forward "\n\n" nil noerror error "Invalid url response in buffer %s" buffer-string expand-file-name format "archives/%s" read-from-string make-directory t write-region silent package--update-downloads-in-progress package--check-signature make-byte-code 256 "\211\204\x13\0\f\305=\204\x13\0\306\300!\210\307\310\301\"\210\311\302\312\303\312\313%\210\211\203-\0\311\314\315\x03\316#\312\303\317P\312\313%\210\306\300!\207" vconcat vector [package-check-signature allow-unsigned package--update-downloads-in-progress error "Unsigned archive `%s'" write-region nil silent mapconcat epg-signature-to-string "\n" ".signed"] 7 "\n\n(fn &optional GOOD-SIGS)" kill-buffer] 20 "\n\n(fn STATUS)"] (nil))
  url-retrieve-internal("https://marmalade-repo.org/packages/archive-contents" #[257 "\211@\306=\203\x1f\0\307\302!\203\x13\0\302 \210\202\204\0\310\x01@A\x02AA\"\210\202\204\0eb\210\311\312\313\314#\204/\0\315\316p\"\210e`|\210\300A\300@\317 \320\321\322\x04\"\v\"\320\301\x02\"\323\x03!<\203\202\0\324\x02\325\"\210\f\203Z\0\300
\235\203i\0\326\x03\313\x03\313\327%\210\330\300!\210\202\202\0\331\x05\301\x05\302\332\333\334\335\336\300\x06\x0e\x06\x0e\x06
$\337\"\340\341%%\210\266\x05\342p!\207" [("marmalade" . "https://marmalade-repo.org/packages/") "archive-contents" #[0 "\301\300!\207" [("marmalade" . "https://marmalade-repo.org/packages/") package--update-downloads-in-progress] 2] package-user-dir package-check-signature package-unsigned-archives :error functionp signal search-forward "\n\n" nil noerror error "Invalid url response in buffer %s" buffer-string expand-file-name format "archives/%s" read-from-string make-directory t write-region silent package--update-downloads-in-progress package--check-signature make-byte-code 256 "\211\204\x13\0\f\305=\204\x13\0\306\300!\210\307\310\301\"\210\311\302\312\303\312\313%\210\211\203-\0\311\314\315\x03\316#\312\303\317P\312\313%\210\306\300!\207" vconcat vector [package-check-signature allow-unsigned package--update-downloads-in-progress error "Unsigned archive `%s'" write-region nil silent mapconcat epg-signature-to-string "\n" ".signed"] 7 "\n\n(fn &optional GOOD-SIGS)" kill-buffer] 20 "\n\n(fn STATUS)"] (nil) silent nil)
  url-retrieve("https://marmalade-repo.org/packages/archive-contents" #[257 "\211@\306=\203\x1f\0\307\302!\203\x13\0\302 \210\202\204\0\310\x01@A\x02AA\"\210\202\204\0eb\210\311\312\313\314#\204/\0\315\316p\"\210e`|\210\300A\300@\317 \320\321\322\x04\"\v\"\320\301\x02\"\323\x03!<\203\202\0\324\x02\325\"\210\f\203Z\0\300
\235\203i\0\326\x03\313\x03\313\327%\210\330\300!\210\202\202\0\331\x05\301\x05\302\332\333\334\335\336\300\x06\x0e\x06\x0e\x06
$\337\"\340\341%%\210\266\x05\342p!\207" [("marmalade" . "https://marmalade-repo.org/packages/") "archive-contents" #[0 "\301\300!\207" [("marmalade" . "https://marmalade-repo.org/packages/") package--update-downloads-in-progress] 2] package-user-dir package-check-signature package-unsigned-archives :error functionp signal search-forward "\n\n" nil noerror error "Invalid url response in buffer %s" buffer-string expand-file-name format "archives/%s" read-from-string make-directory t write-region silent package--update-downloads-in-progress package--check-signature make-byte-code 256 "\211\204\x13\0\f\305=\204\x13\0\306\300!\210\307\310\301\"\210\311\302\312\303\312\313%\210\211\203-\0\311\314\315\x03\316#\312\303\317P\312\313%\210\306\300!\207" vconcat vector [package-check-signature allow-unsigned package--update-downloads-in-progress error "Unsigned archive `%s'" write-region nil silent mapconcat epg-signature-to-string "\n" ".signed"] 7 "\n\n(fn &optional GOOD-SIGS)" kill-buffer] 20 "\n\n(fn STATUS)"] nil silent)
  package--download-one-archive(("marmalade" . "https://marmalade-repo.org/packages/") "archive-contents" #[0 "\301\300!\207" [("marmalade" . "https://marmalade-repo.org/packages/") package--update-downloads-in-progress] 2])
  package--download-and-read-archives(t)
  package-refresh-contents(t)
  package-menu-refresh()
  package-list-packages(nil)
  funcall-interactively(package-list-packages nil)
  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)