From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 22 Jun 2020 22:33:09 +0000 (+0200)
Subject: * lisp/gnus/gnus.el (gnus): Fix a check to handle native compilation.
X-Git-Tag: emacs-28.0.90~2727^2~551
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=801e19d0ba8e048a9faa5d5169ec4183e41b0148;p=emacs.git

* lisp/gnus/gnus.el (gnus): Fix a check to handle native compilation.
---

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)