From: yamaoka <yamaoka>
Date: Wed, 5 Mar 2003 00:05:23 +0000 (+0000)
Subject: Synch to Oort Gnus.
X-Git-Tag: t-gnus-6_15_17-00-quimby~24
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e03097cb99b143c72964b4a3c5e58b525b4d3fc3;p=elisp%2Fgnus.git-

Synch to Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35d7621..a49762b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2003-03-04  John Paul Wallington  <jpw@gnu.org>
+
+	* gnus-agent.el (gnus-agent-enable-expiration)
+	(gnus-agent-article-alist, gnus-agent-article-alist)
+	(gnus-agent-cat-defaccessor): Doc fixes.
+
+2003-03-04  Kai Gro,A_(Bjohann  <kai.grossjohann@uni-duisburg.de>
+
+	* gnus-agent.el (gnus-function-implies-unread-1): Grok
+	byte-compiled functions.
+
 2003-03-04  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
 	* gnus-sum.el (gnus-auto-goto-ignores): New variable. Provides
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 8d577c1..275e556 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -165,7 +165,7 @@ this limit."
 
 (defcustom gnus-agent-enable-expiration 'ENABLE
   "The default expiration state for each group.
-When set to ENABLE, the default, gnus-agent-expire will expire old
+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 DISABLE then
@@ -179,7 +179,7 @@ enable expiration per categories, topics, and groups."
 (defvar gnus-agent-history-buffers nil)
 (defvar gnus-agent-buffer-alist nil)
 (defvar gnus-agent-article-alist nil
-"An assoc list identifying the articles whose headers have been fetched.  
+  "An assoc list identifying the articles whose headers have been fetched.  
 If successfully fetched, these headers will be stored in the group's overview
 file.  The key of each assoc pair is the article ID, the value of each assoc
 pair is a flag indicating whether the identified article has been downloaded
@@ -188,8 +188,7 @@ NOTES:
 1) The last element of this list can not be expired as some 
    routines (for example, get-agent-fetch-headers) use the last
    value to track which articles have had their headers retrieved.
-2) The gnus-agent-regenerate may destructively modify the value.
-")
+2) The function `gnus-agent-regenerate' may destructively modify the value.")
 (defvar gnus-agent-group-alist nil)
 (defvar gnus-category-alist nil)
 (defvar gnus-agent-current-history nil)
@@ -287,7 +286,7 @@ node `(gnus)Server Buffer'.")
 
 (defmacro gnus-agent-cat-defaccessor (name prop-name)
   "Define accessor and setter methods for manipulating a list of the form
-(NAME (PROPERTY1 VALUE1) ... (PROPERTY_N VALUE_N)).
+\(NAME (PROPERTY1 VALUE1) ... (PROPERTY_N VALUE_N)).
 Given the call (gnus-agent-cat-defaccessor func PROPERTY1), the list may be
 manipulated as follows:
   (func LIST): Returns VALUE1
@@ -2366,7 +2365,7 @@ return only unread articles."
          nil)
         ((not function)
          nil)
-        ((symbolp function)
+        ((gnus-functionp function)
          'ignore)
         ((memq (car function) '(or and not))
          (apply (car function)