summaryrefslogtreecommitdiff
path: root/lisp/=nntp.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-10-18 02:45:12 +0000
committerRichard M. Stallman <rms@gnu.org>1994-10-18 02:45:12 +0000
commitbf9588afd094b2bca2c4386975d447478d0b8784 (patch)
tree2ff0178dfd0831aee8ceb2893caf7cf6561fda9c /lisp/=nntp.el
parent876fec05b671fe78d077df2f0ab069ba5197d6d9 (diff)
downloademacs-bf9588afd094b2bca2c4386975d447478d0b8784.tar.gz
(nntp-open-server): Send MODE READER command to server.
Diffstat (limited to 'lisp/=nntp.el')
-rw-r--r--lisp/=nntp.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/=nntp.el b/lisp/=nntp.el
index e72e7efec97..b34c17c7213 100644
--- 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)