Mercurial > emacs

diff lisp/=nntp.el @ 9582:5005fc6f6c6f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nntp-open-server): Send MODE READER command to server.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Oct 1994 02:45:12 +0000
parents f211cea65063
children 45dc21b49023
line wrap: on
line diff
--- a/lisp/=nntp.el	Tue Oct 18 02:39:40 1994 +0000
+++ b/lisp/=nntp.el	Tue Oct 18 02:45:12 1994 +0000
@@ -338,8 +338,9 @@
 	   ;; 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)