mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

nnfeed: Pass through list request failure reports

Browse source 
* lisp/gnus/nnfeed.el (nnfeed-request-list): Report the same
message reported by the inheriting backend on failure.
(Bug#74857)
This commit is contained in:
Daniel Semyonov 2025-04-13 16:06:39 +03:00 • committed by Eli Zaretskii
parent 417ee3a7f7
commit 0e2fd0e441
1 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lisp/gnus/nnfeed.el
View file

@ -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))