Synch to Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7ecc05..aa543e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-03  Kevin Greiner  <kgreiner@xpediantsolutions.com>
+
+       * gnus-agent.el (gnus-agent-enable-expiration): Fixed documentation.
+       (gnus-agent-expire-group-1): Removed invalid (interactive) specifier.
+
 2003-03-03  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-agent.el (gnus-agent-fetch-articles): Fix nil message.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 0c80b63..2a0bf67 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -168,7 +168,7 @@ this limit."
 When set to ENABLE, the default, gnus-agent-expire will expire old
 contents from a group's local storage.  This value may be overridden
 to disable expiration in specific categories, topics, and groups.  Of
-course, you could change gnus-agent-enable-expiration to nil then
+course, you could change gnus-agent-enable-expiration to DISABLE then
 enable expiration per categories, topics, and groups."
   :group 'gnus-agent
   :type '(radio (const :format "Enable " ENABLE)
@@ -2431,7 +2431,6 @@ FORCE is equivalent to setting the expiration predicates to true."
   ;; Internal function - requires caller to have set
   ;; gnus-command-method, initialized overview buffer, and to have
   ;; provided a non-nil active
-  (interactive)
 
   (if (eq 'DISABLE (gnus-agent-find-parameter group 'agent-enable-expiration))
       (gnus-message 5 "Expiry skipping over %s" group)