(nntp-open-server): Send MODE READER command to server.

diff --git a/lisp/nntp.el b/lisp/nntp.el
index e72e7efec978c03cc27087b94007100f0a4d8b56..b34c17c72134eea80b95413c4693a3b4d79bec7f 100644 (file)
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -338,8 +338,9 @@ If optional argument SERVICE is non-nil, open by the service name."
           ;; Do check unexpected close of connection.
           ;; Suggested by feldmark@hanako.stars.flab.fujitsu.junet.
           (if status
-              (set-process-sentinel nntp-server-process
-                                    'nntp-default-sentinel)
+              (progn (set-process-sentinel nntp-server-process
+                                           'nntp-default-sentinel)
+                     (nntp-send-command "^[25].*\r$" "MODE" "READER"))
             ;; We have to close connection here, since function
             ;;  `nntp-server-opened' may return incorrect status.
             (nntp-close-server-internal)