:type '(repeat regexp))
(defvar gnus-cloud-group-name "*Emacs Cloud*")
+(defvar gnus-cloud-covered-servers nil)
(defvar gnus-cloud-version 1)
(defvar gnus-cloud-sequence 1)
(let ((spec (ignore-errors (read (current-buffer))))
length)
(when (and (consp spec)
- (memq (getf spec :type) '(:file :data :deleta)))
+ (memq (plist-get spec :type) '(:file :data :deleta)))
(setq length (plist-get spec :length))
(push (append spec
(list
(string< old timestamp))
timestamp)))
+(declare-function gnus-activate-group "gnus-start"
+ (group &optional scan dont-check method dont-sub-check))
+(declare-function gnus-subscribe-group "gnus-start"
+ (group &optional previous method))
+
(defun gnus-cloud-ensure-cloud-group ()
(let ((method (if (stringp gnus-cloud-method)
(gnus-server-to-method gnus-cloud-method)
(push (gnus-cloud-parse-chunk) chunks)
(forward-line 1))))))
+(defun gnus-cloud-server-p (server)
+ (member server gnus-cloud-covered-servers))
+
(provide 'gnus-cloud)
;;; gnus-cloud.el ends here