(gnus-server-to-method gnus-cloud-method)
gnus-cloud-method)))
(unless (or (gnus-active gnus-cloud-group-name)
- (gnus-activate-group gnus-cloud-group-name nil nil
- gnus-cloud-method))
- (and (gnus-request-create-group gnus-cloud-group-name gnus-cloud-method)
- (gnus-activate-group gnus-cloud-group-name nil nil gnus-cloud-method)
+ (gnus-activate-group gnus-cloud-group-name nil nil method))
+ (and (gnus-request-create-group gnus-cloud-group-name method)
+ (gnus-activate-group gnus-cloud-group-name nil nil method)
(gnus-subscribe-group gnus-cloud-group-name)))))
(defun gnus-cloud-upload-data (&optional full)