diff options
| author | Stefan Monnier | 2017-11-13 11:28:05 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2017-11-13 11:28:05 -0500 |
| commit | a7b7b85567f766ff510a5eaaaf32dbbbec15efd0 (patch) | |
| tree | 886606fc27c18c3a359348878a27c9df5a9d7814 | |
| parent | 000e729071d6fb75eabe2bde8a5912440f1f3c44 (diff) | |
| download | emacs-a7b7b85567f766ff510a5eaaaf32dbbbec15efd0.tar.gz emacs-a7b7b85567f766ff510a5eaaaf32dbbbec15efd0.zip | |
* lisp/gnus/gnus-srvr.el: Avoid custom-set-variables
* lisp/gnus/gnus-srvr.el (gnus-server-toggle-cloud-method-server):
Prefer customize-set-variable.
| -rw-r--r-- | lisp/gnus/gnus-srvr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 8a91973e388..23d8b02efde 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el | |||
| @@ -1159,7 +1159,7 @@ Requesting compaction of %s... (this may take a long time)" | |||
| 1159 | (error "The server under point can't host the Emacs Cloud")) | 1159 | (error "The server under point can't host the Emacs Cloud")) |
| 1160 | 1160 | ||
| 1161 | (when (not (string-equal gnus-cloud-method server)) | 1161 | (when (not (string-equal gnus-cloud-method server)) |
| 1162 | (custom-set-variables '(gnus-cloud-method server)) | 1162 | (customize-set-variable 'gnus-cloud-method server) |
| 1163 | ;; Note we can't use `Custom-save' here. | 1163 | ;; Note we can't use `Custom-save' here. |
| 1164 | (when (gnus-yes-or-no-p | 1164 | (when (gnus-yes-or-no-p |
| 1165 | (format "The new cloud host server is %S now. Save it? " server)) | 1165 | (format "The new cloud host server is %S now. Save it? " server)) |