From 7959695403d659e21df1898e02d14f6a0e196168 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 14 May 2003 05:25:12 +0000 Subject: [PATCH] Synch to Gnus 200305140448. --- ChangeLog | 4 ++++ lisp/ChangeLog | 17 +++++++++++++++++ lisp/gnus-agent.el | 11 ++++++----- lisp/gnus-clfns.el | 12 ------------ lisp/gnus-vers.el | 4 ++-- lisp/gnus.el | 5 ++++- 6 files changed, 33 insertions(+), 20 deletions(-) diff --git a/ChangeLog b/ChangeLog index 754e68b..b0e5794 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-05-14 Katsumi Yamaoka + + * lisp/gnus-vers.el: T-gnus 6.16.2 revision 00. + 2003-05-05 Daiki Ueno * lisp/gnus-sum.el (gnus-summary-toggle-header): Call diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1540485..7ee7e90 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,20 @@ +2003-05-14 Katsumi Yamaoka + + * dgnushack.el (assq-delete-all): Removed the compiler macro. + +2003-05-14 Kevin Greiner + + * gnus-agent.el (gnus-agentize): Updated documentation to match + usage. + (gnus-agent-expire-group-1): Do not skip over a group when the + force argument is set. + * gnus.el (gnus-agent): Updated documentation to reflect that + gnus-agent now defaults to t. + +2003-05-14 Lars Magne Ingebrigtsen + + * gnus.el (gnus-version-number): Bump. + 2003-05-14 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.10.2 is released. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 8066cc2..f9eb600 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -597,10 +597,10 @@ manipulated as follows: ;;;###autoload (defun gnus-agentize () "Allow Gnus to be an offline newsreader. -The normal usage of this command is to put the following as the -last form in your `.gnus.el' file: -\(gnus-agentize) +The gnus-agentize function is now called internally by gnus when +gnus-agent is set. If you wish to avoid calling gnus-agentize, +customize gnus-agent to nil. This will modify the `gnus-setup-news-hook', and `message-send-mail-real-function' variables, and install the Gnus agent @@ -2516,8 +2516,9 @@ FORCE is equivalent to setting the expiration predicates to true." (cons dir (symbol-value 'gnus-agent-expire-current-dirs)))) - (if (eq 'DISABLE (gnus-agent-find-parameter group - 'agent-enable-expiration)) + (if (and (not force) + (eq 'DISABLE (gnus-agent-find-parameter group + 'agent-enable-expiration))) (gnus-message 5 "Expiry skipping over %s" group) (gnus-message 5 "Expiring articles in %s" group) (gnus-agent-load-alist group) diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el index 2931d2e..db33634 100644 --- a/lisp/gnus-clfns.el +++ b/lisp/gnus-clfns.el @@ -35,18 +35,6 @@ (eval-when-compile (require 'cl)) (require 'pym) - (define-compiler-macro assq-delete-all (&whole form key alist) - (if (>= emacs-major-version 21) - form - `(let* ((key ,key) - (alist ,alist) - (tail alist)) - (while tail - (if (and (consp (car tail)) (eq (car (car tail)) key)) - (setq alist (delq (car tail) alist))) - (setq tail (cdr tail))) - alist))) - (define-compiler-macro butlast (&whole form x &optional n) (if (>= emacs-major-version 21) form diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index fdf22b7..36a3822 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 16 2 + (list 6 16 3 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "5.10.2" +(defconst gnus-original-version-number "5.10.3" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) diff --git a/lisp/gnus.el b/lisp/gnus.el index 7871025..af08a43 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -2192,7 +2192,10 @@ covered by that variable." (defcustom gnus-agent t "Whether we want to use the Gnus agent or not. -Putting (gnus-agentize) in ~/.gnus is obsoleted by (setq gnus-agent t)." + +You may customize gnus-agent to disable its use. However, some +backends have started to use the agent as a client-side cache. +Disabling the agent may result in noticable loss of performance." :version "21.3" :group 'gnus-agent :type 'boolean) -- 1.7.10.4