From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 7 Feb 2014 02:00:29 +0000 (-0800)
Subject: (gnus-server-toggle-cloud-server): Only allow clouding applicable types.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=1ac3dd7fdc85553c5cf7eec4077470e02430da68

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b20ce099..81be6a58a 100644
--- 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 584515ccf..a2176d0c7 100644
--- 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 2c9cc1184..3ee91de58 100644
--- 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.