From ab5258b19255ebff04df01d6f55888f43c42dcb9 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 6 May 2023 22:17:19 +0200 Subject: [PATCH] Simplify check for non-empty list * lisp/gnus/nntp.el (nntp-with-open-group): Simplify check for non-empty list. --- lisp/gnus/nntp.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 20c176f2269..a57fd200599 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -643,8 +643,7 @@ connection timeouts (which may be several minutes) or `nntp-with-open-group', opens a new connection then re-issues the NNTP command whose response triggered the error." (declare (indent 2) (debug (form form [&optional symbolp] def-body))) - (when (and (listp connectionless) - (not (eq connectionless nil))) + (when (consp connectionless)) (setq forms (cons connectionless forms) connectionless nil)) `(nntp-with-open-group-function ,group ,server ,connectionless -- 2.39.2