X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-cloud.el;h=52b1360b95bbf8e3cf8c4a5d235ae0907f657921;hp=a6a0f64603dbcc7e2f02609f3f56b9159d5040d1;hb=HEAD;hpb=f973e1c8e523e6912f3dc7e3db9923739812bf5f diff --git a/lisp/gnus-cloud.el b/lisp/gnus-cloud.el index a6a0f6460..52b1360b9 100644 --- a/lisp/gnus-cloud.el +++ b/lisp/gnus-cloud.el @@ -241,10 +241,9 @@ (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)