From: Daniel Semyonov <daniel@dsemy.com>
Date: Sun, 13 Apr 2025 13:06:39 +0000 (+0300)
Subject: nnfeed: Pass through list request failure reports
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94f23f2c6c960f9263d7e9aa2ac34f873c752392;p=emacs.git

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 f6cca1e5d76..362d71829cf 100644
--- 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))