diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2023-05-06 22:17:19 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2023-05-06 22:17:45 +0200 |
| commit | ab5258b19255ebff04df01d6f55888f43c42dcb9 (patch) | |
| tree | 8ddf9c1b2df4856629be4b3bd647d223ea3762b0 | |
| parent | 31a66dc8918e81470dc35be7c489108fbbfbce01 (diff) | |
| download | emacs-ab5258b19255ebff04df01d6f55888f43c42dcb9.tar.gz emacs-ab5258b19255ebff04df01d6f55888f43c42dcb9.tar.bz2 emacs-ab5258b19255ebff04df01d6f55888f43c42dcb9.zip | |
Simplify check for non-empty list
* lisp/gnus/nntp.el (nntp-with-open-group): Simplify check for
non-empty list.
| -rw-r--r-- | lisp/gnus/nntp.el | 3 |
1 files changed, 1 insertions, 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 |