From 9ab479b639c3efc56c7275b662fd0d5501cbfee2 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 6 Dec 2021 04:29:43 +0100 Subject: [PATCH] Make gnus-check-backend-function mode `debug-on-signal' friendly * lisp/gnus/gnus.el (gnus-check-backend-function): Allow running with `debug-on-signal'. --- lisp/gnus/gnus.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 56934dfa15d..afe07ee46f9 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -3150,9 +3150,9 @@ g -- Group name." "Check whether GROUP supports function FUNC. GROUP can either be a string (a group name) or a select method." (ignore-errors - (let ((method (if (stringp group) - (car (gnus-find-method-for-group group)) - group))) + (when-let ((method (if (stringp group) + (car (gnus-find-method-for-group group)) + group))) (unless (featurep method) (require method)) (fboundp (intern (format "%s-%s" method func)))))) -- 2.39.2