an even number in XEmacs.
(when (and (listp connectionless)
(not (eq connectionless nil)))
(setq forms (cons connectionless forms)
(when (and (listp connectionless)
(not (eq connectionless nil)))
(setq forms (cons connectionless forms)
`(let ((nntp-with-open-group-first-pass t)
nntp-with-open-group-internal)
(while (catch 'nntp-with-open-group-error
`(let ((nntp-with-open-group-first-pass t)
nntp-with-open-group-internal)
(while (catch 'nntp-with-open-group-error