From d60201a6ca501009ce0a9804e17914216a4485b9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 10 Sep 2002 07:06:13 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 9 +++++++-- lisp/nntp.el | 8 +++++--- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dec07eb..e08b5bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-09-10 Katsumi Yamaoka + + * nntp.el (nntp-wait-for-string): Check for a process in the + current buffer instead of `nntp-server-buffer'. + 2002-09-09 Simon Josefsson * gnus-art.el (gnus-button-man-handler): New variable. @@ -17,10 +22,10 @@ * gnus-srvr.el (gnus-browse-make-menu-bar): Add "d". * gnus-sum.el (gnus-summary-limit-to-unseen): New command and - keystroke. + keystroke. * gnus-srvr.el (gnus-browse-describe-group): New command and - keystroke. + keystroke. 2002-09-06 Katsumi Yamaoka diff --git a/lisp/nntp.el b/lisp/nntp.el index c02b139..267b29e 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1523,11 +1523,13 @@ password contained in '~/.nntp-authinfo'." (defun nntp-wait-for-string (regexp) "Wait until string arrives in the buffer." - (let ((buf (current-buffer))) + (let ((buf (current-buffer)) + proc) (goto-char (point-min)) - (while (and (nntp-find-connection nntp-server-buffer) + (while (and (setq proc (get-buffer-process buf)) + (memq (process-status proc) '(open run)) (not (re-search-forward regexp nil t))) - (accept-process-output (nntp-find-connection nntp-server-buffer)) + (accept-process-output proc) (set-buffer buf) (goto-char (point-min))))) -- 1.7.10.4