From: yamaoka <yamaoka>
Date: Mon, 3 Mar 2003 14:51:49 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_17-00-quimby~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=147f8e839ba1aff75368caeb6e86634502157442;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7ecc05..aa543e8 100644
--- 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
--- 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)