From: yamaoka <yamaoka>
Date: Wed, 9 Aug 2000 10:44:51 +0000 (+0000)
Subject: (nntp-open-telnet): Wait for the telnet prompt before sending a command;
X-Git-Tag: t-gnus-6_14_5-04~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f55bd75dfe7b571465cc6a8a2e4107b14f148c3;p=elisp%2Fgnus.git-

(nntp-open-telnet): Wait for the telnet prompt before sending a command;
allow the rtelnet prompt as well.
;; A patch for Gnus has been posted to `nntp+quimby.gnus.org:gnus.gnus-bug'.
---

diff --git a/lisp/nntp.el b/lisp/nntp.el
index b7919b9..846b61f 100644
--- a/lisp/nntp.el
+++ b/lisp/nntp.el
@@ -1297,6 +1297,7 @@ password contained in '~/.nntp-authinfo'."
 		  "nntpd" buffer nntp-telnet-command nntp-telnet-switches)))
 	  (case-fold-search t))
       (when (memq (process-status proc) '(open run))
+	(nntp-wait-for-string "^r?telnet")
 	(process-send-string proc "set escape \^X\n")
 	(cond
 	 ((and nntp-open-telnet-envuser nntp-telnet-user-name)
@@ -1326,7 +1327,7 @@ password contained in '~/.nntp-authinfo'."
 	(beginning-of-line)
 	(delete-region (point-min) (point))
 	(process-send-string proc "\^]")
-	(nntp-wait-for-string "^telnet")
+	(nntp-wait-for-string "^r?telnet")
 	(process-send-string proc "mode character\n")
 	(accept-process-output proc 1)
 	(sit-for 1)