From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 29 Dec 2014 13:04:25 +0000 (+0000)
Subject: lisp/gnus/gnus-cloud.el: Start collecting a newsrc
X-Git-Tag: emacs-25.0.90~2631^2~12^2
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/8e0b2702ce8ad593a2098ae8028728ed137fb26c

lisp/gnus/gnus-cloud.el: Start collecting a newsrc
---

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index ec016eeeb7..a42bcc06e9 100644
--- a/lisp/gnus/gnus-cloud.el
+++ b/lisp/gnus/gnus-cloud.el
@@ -329,6 +329,15 @@
 (defun gnus-cloud-server-p (server)
   (member server gnus-cloud-covered-servers))
 
+(defun gnus-cloud-collect-full-newsrc ()
+  (let ((infos nil))
+    (dolist (info (cdr gnus-newsrc-alist))
+      (when (gnus-cloud-server-p
+	     (gnus-method-to-server
+	      (gnus-find-method-for-group (gnus-info-group info))))
+	(push info infos)))
+    ))
+
 (provide 'gnus-cloud)
 
 ;;; gnus-cloud.el ends here