* nntp.el (nntp-accept-process-output): Use a 0.1 second timeout.
2003-01-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * 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 <lars@ingebrigtsen.no>
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)
(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