[gnus git] branch master updated: m0-9-46-g1ac3dd7 =1= (gnus-server-toggle-cloud-server): Only allow clouding applicable types.

       via  1ac3dd7fdc85553c5cf7eec4077470e02430da68 (commit)
      from  dc0bb800b34f9fbea3d43dcb77402b052779cd14 (commit)


- Log -----------------------------------------------------------------
commit 1ac3dd7fdc85553c5cf7eec4077470e02430da68
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Feb 6 18:00:29 2014 -0800

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b20ce0..81be6a5 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 584515c..a2176d0 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 2c9cc11..3ee91de 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.

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog    |    2 ++
 lisp/gnus-srvr.el |    3 +++
 lisp/gnus.el      |    4 ++--
 3 files changed, 7 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project