From 2415bc4a5f078bf60b3859704b8273aa387b2cf7 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 28 Jun 2002 08:45:05 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 4 ++++ lisp/nntp.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87b5cdb..ac0aff3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-06-28 Katsumi Yamaoka + + * nntp.el (nntp-open-via-rlogin-and-telnet): Hide commandline args. + 2002-06-26 Kai Gro,b_(Bjohann * message.el (message-font-lock-keywords): Revert 2002-06-22 diff --git a/lisp/nntp.el b/lisp/nntp.el index 8bbf408..004ee06 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1673,8 +1673,7 @@ Please refer to the following variables to customize the connection: - `nntp-end-of-line'." (let ((command `(,nntp-via-address ,nntp-telnet-command - ,@nntp-telnet-switches - ,nntp-address ,nntp-port-number)) + ,@nntp-telnet-switches)) proc) (and nntp-via-user-name (setq command `("-l" ,nntp-via-user-name ,@command))) @@ -1685,6 +1684,9 @@ Please refer to the following variables to customize the connection: (apply 'start-process "nntpd" buffer command))) (save-excursion (set-buffer buffer) + (nntp-wait-for-string "^r?telnet") + (process-send-string proc (concat "open " nntp-address + " " nntp-port-number "\n")) (nntp-wait-for-string "^\r*20[01]") (beginning-of-line) (delete-region (point-min) (point)) -- 1.7.10.4