X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnntp.el;h=50f11ad24f7fe5480a7d756a93e904d078b21a86;hb=74a489ff1213794152d6e13f7a11e16c89f62602;hp=3cdd63084eff2d58b981cb1a1bb3f579aa20bf9c;hpb=d35f74681dd75d8a3f27e9d3be60c8ec687cc6bd;p=gnus diff --git a/lisp/nntp.el b/lisp/nntp.el index 3cdd63084..50f11ad24 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -987,7 +987,7 @@ command whose response triggered the error." "\r?\n\\.\r?\n" "BODY" (if (numberp article) (int-to-string article) article)))) -(deffoo nntp-request-group (group &optional server dont-check) +(deffoo nntp-request-group (group &optional server dont-check info) (nntp-with-open-group nil server (when (nntp-send-command "^[245].*\n" "GROUP" group) @@ -1014,7 +1014,8 @@ command whose response triggered the error." (unless (assq 'nntp-address defs) (setq defs (append defs (list (list 'nntp-address server))))) (nnoo-change-server 'nntp server defs) - (unless connectionless + (if connectionless + t (or (nntp-find-connection nntp-server-buffer) (nntp-open-connection nntp-server-buffer)))))