From 04ab3904eddc01af918fb85b8712cd5d45238468 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 2 Feb 2021 14:39:28 -0500 Subject: * lisp/gnus/gnus-art.el: Fix misuse of `standard-value`. * lisp/custom.el (custom--standard-value): New function. * lisp/gnus/gnus-art.el: (gnus-article-browse-html-parts) (gnus-article-browse-html-article): * lisp/dired-aux.el (dired-do-find-regexp-and-replace): * lisp/emacs-lisp/package-x.el (package-upload-buffer-internal): * lisp/startup.el (command-line): Use it. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/startup.el') diff --git a/lisp/startup.el b/lisp/startup.el index 60e1a200bbd..b173d619733 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1386,7 +1386,7 @@ please check its value") (equal user-mail-address (let (mail-host-address) (ignore-errors - (eval (car (get 'user-mail-address 'standard-value)))))) + (custom--standard-value 'user-mail-address)))) (custom-reevaluate-setting 'user-mail-address)) ;; If parameter have been changed in the init file which influence -- cgit v1.2.3