* lisp/emacs-lisp/package.el (package--with-response-buffer):

Search for the blank-line in the right buffer.

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 6da3c1e4bc6288e21e8fed4ff1442d142aec2062..265b1cc54858561359fe5bde979b12f816710a80 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1160,9 +1160,10 @@ errors signaled by ERROR-FORM or by BODY).
                                 (unless-error ,body
                                               (when-let ((er (plist-get status :error)))
                                                 (error "Error retrieving: %s %S" url er))
-                                              (goto-char (point-min))
-                                              (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror)
-                                                (error "Error retrieving: %s %S" url "incomprehensible buffer"))
+                                              (with-current-buffer b
+                                                (goto-char (point-min))
+                                                (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror)
+                                                  (error "Error retrieving: %s %S" url "incomprehensible buffer")))
                                               (url-insert-buffer-contents b url)
                                               (kill-buffer b)
                                               (goto-char (point-min)))))))