Synch to Gnus 200305140448.

diff --git a/ChangeLog b/ChangeLog
index 754e68b..b0e5794 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lisp/gnus-vers.el: T-gnus 6.16.2 revision 00.
+
 2003-05-05  Daiki Ueno  <ueno@unixuser.org>
 
        * lisp/gnus-sum.el (gnus-summary-toggle-header): Call

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1540485..7ee7e90 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,20 @@
+2003-05-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dgnushack.el (assq-delete-all): Removed the compiler macro.
+
+2003-05-14  Kevin Greiner <kgreiner@xpediantsolutions.com>
+
+       * 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  <larsi@gnus.org>
+
+       * gnus.el (gnus-version-number): Bump.
+
 2003-05-14 Lars Magne Ingebrigtsen <lars@ingebrigtsen.no>
 
        * gnus.el: Gnus v5.10.2 is released.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 8066cc2..f9eb600 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)