From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sat, 6 May 2023 20:17:19 +0000 (+0200)
Subject: Simplify check for non-empty list
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab5258b19255ebff04df01d6f55888f43c42dcb9;p=emacs.git

Simplify check for non-empty list

* lisp/gnus/nntp.el (nntp-with-open-group): Simplify check for
non-empty list.
---

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