diff options
Diffstat (limited to 'lisp/epg-config.el')
-rw-r--r-- | lisp/epg-config.el | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/lisp/epg-config.el b/lisp/epg-config.el index 17364563e8b..1d7706647db 100644 --- a/lisp/epg-config.el +++ b/lisp/epg-config.el @@ -114,16 +114,15 @@ entry until the version requirement is met." (cl-destructuring-bind (symbol constructor . alist) (cdr entry) (or (and (not force) (alist-get protocol epg--configurations)) - (let ((executable (get symbol 'saved-value))) - (if executable - (ignore-errors - (let ((configuration (funcall constructor executable))) - (epg-check-configuration configuration) - (push (cons protocol configuration) epg--configurations) - configuration)) - (catch 'found - (dolist (program-version alist) - (setq executable (executable-find (car program-version))) + ;; If the executable value is already set with M-x + ;; customize, use it without checking. + (if (get symbol 'saved-value) + (let ((configuration (funcall constructor (symbol-value symbol)))) + (push (cons protocol configuration) epg--configurations) + configuration) + (catch 'found + (dolist (program-version alist) + (let ((executable (executable-find (car program-version)))) (when executable (let ((configuration (funcall constructor executable))) |