[Emacs-diffs] master c705f72: Rename gnus-cloud method setter

[Teodor Zlatanov]

branch: master
commit c705f7250d6f17f1682ee5ad7eec516dbf6c3916
Author: Ted Zlatanov <address@hidden>
Commit: Ted Zlatanov <address@hidden>

    Rename gnus-cloud method setter
    
    * lisp/gnus/gnus-srvr.el (gnus-server-set-cloud-method-server)
      (gnus-server-make-menu-bar, gnus-server-mode-map): Rename
      `gnus-server-toggle-cloud-method-server' to
      `gnus-server-set-cloud-method-server' (Bug#28845).
      (gnus-server-toggle-cloud-server): Use "toggle" in docstring.
    
    * lisp/gnus/gnus-cloud.el: Fix docstring.
---
 lisp/gnus/gnus-cloud.el | 2 +-
 lisp/gnus/gnus-srvr.el  | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index c57576c..f3acd9e 100644
--- a/lisp/gnus/gnus-cloud.el
+++ b/lisp/gnus/gnus-cloud.el
@@ -70,7 +70,7 @@
 
 (defcustom gnus-cloud-method nil
   "The IMAP select method used to store the cloud data.
-See also `gnus-server-toggle-cloud-method-server' for an
+See also `gnus-server-set-cloud-method-server' for an
 easy interactive way to set this from the Server buffer."
   :group 'gnus-cloud
   :type '(radio (const :tag "Not set" nil)
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el
index a334147..062e9cf 100644
--- a/lisp/gnus/gnus-srvr.el
+++ b/lisp/gnus/gnus-srvr.el
@@ -142,7 +142,7 @@ If nil, a faster, but more primitive, buffer is used 
instead."
        ["Offline" gnus-server-offline-server t]
        ["Deny" gnus-server-deny-server t]
        ["Toggle Cloud Sync for this server" gnus-server-toggle-cloud-server t]
-       ["Toggle Cloud Sync Host" gnus-server-toggle-cloud-method-server t]
+       ["Toggle Cloud Sync Host" gnus-server-set-cloud-method-server t]
        "---"
        ["Open All" gnus-server-open-all-servers t]
        ["Close All" gnus-server-close-all-servers t]
@@ -189,7 +189,7 @@ If nil, a faster, but more primitive, buffer is used 
instead."
     "z" gnus-server-compact-server
 
     "i" gnus-server-toggle-cloud-server
-    "I" gnus-server-toggle-cloud-method-server
+    "I" gnus-server-set-cloud-method-server
 
     "\C-c\C-i" gnus-info-find-node
     "\C-c\C-b" gnus-bug))
@@ -1129,7 +1129,7 @@ Requesting compaction of %s... (this may take a long 
time)"
        (and original (gnus-kill-buffer original))))))
 
 (defun gnus-server-toggle-cloud-server ()
-  "Make the server under point be replicated in the Emacs Cloud."
+  "Toggle whether the server under point is replicated in the Emacs Cloud."
   (interactive)
   (let ((server (gnus-server-server-name)))
     (unless server
@@ -1149,7 +1149,7 @@ Requesting compaction of %s... (this may take a long 
time)"
                      "Replication of %s in the cloud will stop")
                  server)))
 
-(defun gnus-server-toggle-cloud-method-server ()
+(defun gnus-server-set-cloud-method-server ()
   "Set the server under point to host the Emacs Cloud."
   (interactive)
   (let ((server (gnus-server-server-name)))