procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix gnus-cloud-download-all-data return value

Browse source 
* lisp/gnus/gnus-cloud.el (gnus-cloud-download-data): Return the
result of calling `gnus-cloud-update-all' when UPDATE is t, as per the
documented behaviour. (Bug#40280)
This commit is contained in:
David Edmondson 2020-06-23 12:52:34 +01:00 • committed by Ted Zlatanov
parent 30ff2433b1
commit 7fd3f0b381
No known key found for this signature in database
GPG key ID: 11F23D0A4E4B9DEE
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/gnus-cloud.el
View file

@ -478,8 +478,8 @@ Otherwise, returns the Gnus Cloud data chunks."
(push (gnus-cloud-parse-chunk) chunks)
(forward-line 1))))
(if update
(progn
(mapc #'gnus-cloud-update-all chunks)
(prog1
(mapcar #'gnus-cloud-update-all chunks)
(setq gnus-cloud-sequence highest-sequence-seen))
chunks)))