nnfeed: Pass through list request failure reports

* lisp/gnus/nnfeed.el (nnfeed-request-list): Report the same
message reported by the inheriting backend on failure.
(Bug#74857)

(cherry picked from commit 0e2fd0e441b2cc7686450d8784707ebc6fbe4917)

diff --git a/lisp/gnus/nnfeed.el b/lisp/gnus/nnfeed.el
index f6cca1e5d76c69b3c482e4bfa5f748c90d2357ad..362d71829cfbb8e508d69a435c3abcdfa7b46c64 100644 (file)
--- a/lisp/gnus/nnfeed.el
+++ b/lisp/gnus/nnfeed.el
@@ -609,15 +609,17 @@ Only HEADERS of a type included in MIME are considered."
 (deffoo nnfeed-request-list (&optional server)
   (with-current-buffer nntp-server-buffer
     (erase-buffer)
-    (when-let ((p (point))
-               (s (nnfeed--parse-feed
-                   (or server (nnfeed--current-server-no-prefix))))
-               ((hash-table-p s)))
-      (maphash (lambda (group g)
-                 (insert (format "\"%s\" %s %s y\n"
-                                 group (aref g 3) (aref g 4))))
-               s)
-      (not (= (point) p)))))
+    (if-let* ((p (point))
+              (s (nnfeed--parse-feed
+                  (or server (nnfeed--current-server-no-prefix))))
+              ((hash-table-p s)))
+        (progn
+          (maphash (lambda (group g)
+                     (insert (format "\"%s\" %s %s y\n"
+                                     group (aref g 3) (aref g 4))))
+                   s)
+          (not (= (point) p)))
+      (nnheader-report 'nnfeed (nnheader-get-report nnfeed-backend)))))
 
 (deffoo nnfeed-request-post (&optional _server)
   (nnheader-report nnfeed-backend "%s is a read only backend" nnfeed-backend))