* gnus-agent.el (gnus-agent-summary-make-menu-bar): Fix typo.

	From Stefan Reich\e,Av\e(Br <xsteve@riic.at>.

	* nnagent.el (nnagent-request-expire-articles): Don't delete
	files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 84a0322..ec66825 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-02-06  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-summary-make-menu-bar): Fix typo.
+       From Stefan Reich\e,Av\e(Br <xsteve@riic.at>.
+
+       * nnagent.el (nnagent-request-expire-articles): Don't delete
+       files.
+
 2002-02-05  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-gen-unsubscribed-mft): New function.
@@ -8776,6 +8784,10 @@
 
        * ChangeLog: Moved to ChangeLog.1.
 
+    Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
+  Copying and distribution of this file, with or without modification,
+  are permitted provided the copyright notice and this notice are preserved.
+       
 ;; Local Variables:
 ;; coding: iso-2022-7bit
 ;; End:

diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1
index 3cfb883..c88d229 100644 (file)
--- a/lisp/ChangeLog.1
+++ b/lisp/ChangeLog.1
@@ -10095,6 +10095,10 @@ Sat Aug 29 19:32:06 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v0.2 is released.
 
+    Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+  Copying and distribution of this file, with or without modification,
+  are permitted provided the copyright notice and this notice are preserved.
+       
 ;; Local Variables:
 ;; coding: iso-2022-7bit
 ;; End:

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 544ad64..21bedeb 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -325,7 +325,7 @@ If this is `ask' the hook will query the user."
        ["Mark as downloadable" gnus-agent-mark-article t]
        ["Unmark as downloadable" gnus-agent-unmark-article t]
        ["Toggle mark" gnus-agent-toggle-mark t]
-       ["Fetch downloadable" gnus-aget-summary-fetch-group t]
+       ["Fetch downloadable" gnus-agent-summary-fetch-group t]
        ["Catchup undownloaded" gnus-agent-catchup t]))))
 
 (defvar gnus-agent-server-mode-map (make-sparse-keymap))

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index 6b6a79a..a65bbfd 100644 (file)
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -167,6 +167,9 @@
        t)
       'nov)))
 
+(deffoo nnagent-request-expire-articles (articles group &optional server force)
+  articles)
+
 (deffoo nnagent-request-group (group &optional server dont-check)
   (nnoo-parent-function 'nnagent 'nnml-request-group
                        (list group (nnagent-server server) dont-check)))
@@ -191,10 +194,6 @@
   (nnoo-parent-function 'nnagent 'nnml-request-delete-group
                        (list group force (nnagent-server server))))
 
-(deffoo nnagent-request-expire-articles (articles group &optional server force)
-  (nnoo-parent-function 'nnagent 'nnml-request-expire-articles
-                       (list articles group (nnagent-server server) force)))
-
 (deffoo nnagent-request-list (&optional server)
   (nnoo-parent-function 'nnagent 'nnml-request-list
                        (list (nnagent-server server))))