From: yamaoka Date: Sun, 5 Jan 2003 06:54:13 +0000 (+0000) Subject: T-gnus 6.15.11 (quimby) revision 00. X-Git-Tag: t-gnus-6_15_11-00-quimby~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ac68bdf8c3d1461d52b69a79c2e78f0b34844352;p=elisp%2Fgnus.git- T-gnus 6.15.11 (quimby) revision 00. --- diff --git a/ChangeLog b/ChangeLog index 92d0d18..73d0a92 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2003-01-05 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.15.11 (quimby) revision 00. + +2003-01-05 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.15.10 revision 00. 2003-01-03 Katsumi Yamaoka diff --git a/GNUS-NEWS b/GNUS-NEWS index a13f4ef..3bf0e30 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -8,6 +8,9 @@ For older news, see Gnus info node "New Features". * Changes in Oort Gnus +** References and X-Draft-Headers are no longer generated when you + start composing messages. + ** Improved anti-speam features. ** Easy inclusion of X-Faces headers. diff --git a/README.T-gnus b/README.T-gnus index bcdb46e..52bb09b 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -33,5 +33,5 @@ NEWS: * T-gnus 6.15 - this is based on Oort Gnus. - The latest T-gnus is T-gnus 6.15.10 (based on Oort Gnus 0.10). It + The latest T-gnus is T-gnus 6.15.11 (based on Oort Gnus 0.11). It requires SEMI 1.14, FLIM 1.14, and APEL 10.0 or later. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ef440a..11fbe7a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +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 * gnus.el: Oort Gnus v0.10 is released. diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index 6f9ec6e..e1a5caf 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -3072,7 +3072,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/gnus-vers.el b/lisp/gnus-vers.el index a85fda3..df44c27 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -40,10 +40,10 @@ ;; Product information of this gnus. (product-provide 'gnus-vers (product-define "T-gnus" nil - (list 6 15 10 + (list 6 15 11 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "0.10" +(defconst gnus-original-version-number "0.11" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) diff --git a/lisp/nntp.el b/lisp/nntp.el index 8af722a..912a82b 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -555,41 +555,49 @@ noticing asynchronous data.") (defvar nntp-with-open-group-first-pass nil) (defmacro nntp-with-open-group (group server &optional connectionless &rest forms) - "Protect against servers that don't like clients that keep idle connections opens. The problem -being that these servers may either close a connection or simply ignore any further requests on a -connection. Closed connections are not detected until accept-process-output has updated the -process-status. Dropped connections are not detected until the connection timeouts (which may be -several minutes) or nntp-connection-timeout has expired. When these occur nntp-with-open-group, -opens a new connection then re-issues the NNTP command whose response triggered the error." + "Protect against servers that don't like clients that keep idle connections opens. +The problem being that these servers may either close a connection or +simply ignore any further requests on a connection. Closed +connections are not detected until accept-process-output has updated +the process-status. Dropped connections are not detected until the +connection timeouts (which may be several minutes) or +nntp-connection-timeout has expired. When these occur +nntp-with-open-group, opens a new connection then re-issues the NNTP +command whose response triggered the error." (when (and (listp connectionless) (not (eq connectionless nil))) (setq forms (cons connectionless forms) connectionless nil)) `(let ((nntp-with-open-group-first-pass t) nntp-with-open-group-internal) - (while (catch 'nntp-with-open-group-error - ;; Open the connection to the server - ;; NOTE: Existing connections are NOT tested. - (nntp-possibly-change-group ,group ,server ,connectionless) + (while + (catch 'nntp-with-open-group-error + ;; Open the connection to the server + ;; NOTE: Existing connections are NOT tested. + (nntp-possibly-change-group ,group ,server ,connectionless) - (let ((timer - (and nntp-connection-timeout - (nnheader-run-at-time - nntp-connection-timeout nil - '(lambda () - (let ((process (nntp-find-connection nntp-server-buffer)) - (buffer (and process (process-buffer process)))) - ; when I an able to identify the connection to the server AND I've received NO - ; reponse for nntp-connection-timeout seconds. - (when (and buffer (eq 0 (buffer-size buffer))) - ; Close the connection. Take no other action as the accept input code will - ; handle the closed connection. - (nntp-kill-buffer buffer)))))))) - (unwind-protect - (setq nntp-with-open-group-internal (progn ,@forms)) - (when timer - (nnheader-cancel-timer timer))) - nil)) + (let ((timer + (and + nntp-connection-timeout + (nnheader-run-at-time + nntp-connection-timeout nil + '(lambda () + (let ((process (nntp-find-connection + nntp-server-buffer)) + (buffer (and process (process-buffer process)))) + ;; when I an able to identify the connection + ;; to the server AND I've received NO reponse + ;; for nntp-connection-timeout seconds. + (when (and buffer (eq 0 (buffer-size buffer))) + ;; Close the connection. Take no other + ;; action as the accept input code will + ;; handle the closed connection. + (nntp-kill-buffer buffer)))))))) + (unwind-protect + (setq nntp-with-open-group-internal (progn ,@forms)) + (when timer + (nnheader-cancel-timer timer))) + nil)) (setq nntp-with-open-group-first-pass nil)) nntp-with-open-group-internal)) @@ -1300,10 +1308,13 @@ 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)) - ;; 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 be the - ;; process's former output buffer (i.e. now killed) + (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 + ;; be the process's former output buffer (i.e. now killed) (or (memq (process-status process) '(open run)) (nntp-report "Server closed connection")))) diff --git a/texi/ChangeLog b/texi/ChangeLog index db01533..85ceef1 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2003-01-05 Lars Magne Ingebrigtsen + + * gnus.texi (Setting Process Marks): Addition. + 2003-01-04 Lars Magne Ingebrigtsen * gnus.texi (Group Line Specification): Addition. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 5099ad4..036dd2e 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -5896,6 +5896,11 @@ gnus $B%(!<%8%'%s%H(B @pxref{Agent Basics} $B$O$$$/$D$+$N5-;v$r<+F0E*$K%@%&%s @subsection $B%W%m%;%90u$rIU$1$k(B @cindex setting process marks +$B%W%m%;%90u$O35N,%P%C%U%!!<$K(B @code{#} $B$H$7$FI=<($5$l!"B>$N%3%^%s%I$G=hM}(B +$B$5$;$k5-;v$K0u$rIU$1$k$?$a$K;H$o$l$^$9!#Nc$($P!";M$D$N5-;v$K$K0u$rIU$1$F(B +$B$+$i(B @kbd{*} $B%3%^%s%I$r;H$&$H!"(Bgnus $B$O$=$l$i;M$D$N5-;v$r%-%c%C%7%e$KF~$l(B +$B$^$9!#>\$7$/$O(B @pxref{Process/Prefix} $B$r$I$&$>!#(B + @table @kbd @item M P p @itemx # diff --git a/texi/gnus.texi b/texi/gnus.texi index b31153e..a09c285 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -5931,6 +5931,13 @@ or @subsection Setting Process Marks @cindex setting process marks +Process marks are displayed as @code{#} in the summary buffer, and are +used for marking articles in such a way that other commands will +process these articles. For instance, if you process mark four +articles and then use the @kbd{*} command, Gnus will enter these four +commands into the cache. For more information, +@pxref{Process/Prefix}. + @table @kbd @item M P p