From 801e19d0ba8e048a9faa5d5169ec4183e41b0148 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 23 Jun 2020 00:33:09 +0200 Subject: [PATCH] * lisp/gnus/gnus.el (gnus): Fix a check to handle native compilation. --- lisp/gnus/gnus.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index caeab7f55af..89d5d120549 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -4126,8 +4126,9 @@ prompt the user for the name of an NNTP server to use." ;; file. (unless (string-match "^Gnus" gnus-version) (load "gnus-load" nil t)) - (unless (byte-code-function-p (symbol-function 'gnus)) - (message "You should byte-compile Gnus") + (unless (or (byte-code-function-p (symbol-function 'gnus)) + (subr-native-elisp-p (symbol-function 'gnus))) + (message "You should compile Gnus") (sit-for 2)) (let ((gnus-action-message-log (list nil))) (gnus-1 arg dont-connect slave) -- 2.39.5