From 1ac3dd7fdc85553c5cf7eec4077470e02430da68 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 6 Feb 2014 18:00:29 -0800 Subject: [PATCH] (gnus-server-toggle-cloud-server): Only allow clouding applicable types. --- lisp/ChangeLog | 2 ++ lisp/gnus-srvr.el | 3 +++ lisp/gnus.el | 4 ++-- 3 files changed, 7 insertions(+), 2 deletions(-) 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. -- 2.25.1