[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c705f72: Rename gnus-cloud method setter
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] master c705f72: Rename gnus-cloud method setter |
Date: |
Tue, 12 Dec 2017 14:48:38 -0500 (EST) |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c705f72: Rename gnus-cloud method setter,
Teodor Zlatanov <=