(gnus-server-toggle-cloud-server): Only allow clouding applicable types.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b20ce0..81be6a5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * gnus-srvr.el (gnus-server-toggle-cloud-server): New command and
        keystroke.
+       (gnus-server-toggle-cloud-server): Only allow clouding applicable
+       types.
 
        * ietf-drums.el (ietf-drums-parse-address): Don't bug out when called
        with an empty string.

diff --git a/lisp/gnus-srvr.el b/lisp/gnus-srvr.el
index 584515c..a2176d0 100644 (file)
--- a/lisp/gnus-srvr.el
+++ b/lisp/gnus-srvr.el
@@ -1106,6 +1106,9 @@ Requesting compaction of %s... (this may take a long time)"
     (unless server
       (error "No server on the current line"))
 
+    (unless (gnus-method-option-p server 'cloud)
+      (error "The server under point doesn't support cloudiness"))
+
     (if (gnus-cloud-server-p server)
        (setq gnus-cloud-covered-servers
              (delete server gnus-cloud-covered-servers))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 2c9cc11..3ee91de 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1612,7 +1612,7 @@ slower."
   :type 'string)
 
 (defcustom gnus-valid-select-methods
-  '(("nntp" post address prompt-address physical-address)
+  '(("nntp" post address prompt-address physical-address cloud)
     ("nnspool" post address)
     ("nnvirtual" post-mail virtual prompt-address)
     ("nnmbox" mail respool address)
@@ -1629,7 +1629,7 @@ slower."
     ("nnrss" none global)
     ("nnagent" post-mail)
     ("nnimap" post-mail address prompt-address physical-address respool
-     server-marks)
+     server-marks cloud)
     ("nnmaildir" mail respool address server-marks)
     ("nnnil" none))
   "*An alist of valid select methods.