mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-03 18:41:25 -08:00
* lisp/gnus/gnus-srvr.el: Avoid custom-set-variables
* lisp/gnus/gnus-srvr.el (gnus-server-toggle-cloud-method-server): Prefer customize-set-variable.
This commit is contained in:
parent
000e729071
commit
a7b7b85567
1 changed files with 1 additions and 1 deletions
|
|
@ -1159,7 +1159,7 @@ Requesting compaction of %s... (this may take a long time)"
|
||||||
(error "The server under point can't host the Emacs Cloud"))
|
(error "The server under point can't host the Emacs Cloud"))
|
||||||
|
|
||||||
(when (not (string-equal gnus-cloud-method server))
|
(when (not (string-equal gnus-cloud-method server))
|
||||||
(custom-set-variables '(gnus-cloud-method server))
|
(customize-set-variable 'gnus-cloud-method server)
|
||||||
;; Note we can't use `Custom-save' here.
|
;; Note we can't use `Custom-save' here.
|
||||||
(when (gnus-yes-or-no-p
|
(when (gnus-yes-or-no-p
|
||||||
(format "The new cloud host server is %S now. Save it? " server))
|
(format "The new cloud host server is %S now. Save it? " server))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue