diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2014-12-29 13:04:25 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2014-12-29 13:04:25 +0000 |
| commit | 8e0b2702ce8ad593a2098ae8028728ed137fb26c (patch) | |
| tree | 12526780f383c84f65ac63495faed15bd96d0c12 /lisp | |
| parent | c5a81fdb6fc2422807674c2d7b27f8333a3b9e12 (diff) | |
| download | emacs-8e0b2702ce8ad593a2098ae8028728ed137fb26c.tar.gz | |
lisp/gnus/gnus-cloud.el: Start collecting a newsrc
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus-cloud.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el index ec016eeeb77..a42bcc06e94 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 |