From 4948f852f05e2768644fc2c20507c127e495c0d0 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 5 Jan 2003 04:37:52 +0000 Subject: [PATCH] * gnus-group.el (gnus-group-expire-articles): Doc fix. * nntp.el (nntp-accept-process-output): Use a 0.1 second timeout. --- lisp/ChangeLog | 4 ++++ lisp/gnus-group.el | 3 ++- lisp/nntp.el | 4 +++- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a07d1b9de..11fbe7a52 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2003-01-05 Lars Magne Ingebrigtsen + * gnus-group.el (gnus-group-expire-articles): Doc fix. + + * nntp.el (nntp-accept-process-output): Use a 0.1 second timeout. + * gnus.el (gnus-version-number): Bump version number. 2003-01-05 01:53:30 Lars Magne Ingebrigtsen diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index e6fda6417..04dc13f94 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -3031,7 +3031,8 @@ or nil if no action could be taken." num))) (defun gnus-group-expire-articles (&optional n) - "Expire all expirable articles in the current newsgroup." + "Expire all expirable articles in the current newsgroup. +Uses the process/prefix convention." (interactive "P") (let ((groups (gnus-group-process-prefix n)) group) diff --git a/lisp/nntp.el b/lisp/nntp.el index 5e8d1cbf9..6b5543b70 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1243,7 +1243,9 @@ password contained in '~/.nntp-authinfo'." (unless (< len 10) (setq nntp-have-messaged t) (nnheader-message 7 "nntp read: %dk" len))) - (accept-process-output process (or timeout 1)) + (if timeout + (accept-process-output process timeout) + (accept-process-output process 0 100)) ;; accept-process-output may update status of process to indicate ;; that the server has closed the connection. This MUST be ;; handled here as the buffer restored by the save-excursion may -- 2.25.1