procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simplify check for non-empty list

Browse source 
* lisp/gnus/nntp.el (nntp-with-open-group): Simplify check for
non-empty list.
This commit is contained in:
Andreas Schwab 2023-05-06 22:17:19 +02:00
parent 31a66dc891
commit ab5258b192
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/nntp.el
View file

@ -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