[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8e0b270: lisp/gnus/gnus-cloud.el: Start collecting
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 8e0b270: lisp/gnus/gnus-cloud.el: Start collecting a newsrc |
Date: |
Mon, 29 Dec 2014 13:04:36 +0000 |
branch: master
commit 8e0b2702ce8ad593a2098ae8028728ed137fb26c
Author: Lars Ingebrigtsen <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
lisp/gnus/gnus-cloud.el: Start collecting a newsrc
---
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 ec016ee..a42bcc0 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8e0b270: lisp/gnus/gnus-cloud.el: Start collecting a newsrc,
Katsumi Yamaoka <=