Commit 8e0b2702 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka

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

parent c5a81fdb
......@@ -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
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment