Revoke last Dave Love's patch, because of incompatibility of XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0f68cc..5be80db 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-12 12:50:30  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el: Revoke last Dave Love's patch, because of
+       incompatibility of XEmacs.
+
 1999-12-12 12:27:03  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * mm-uu.el: Change headers.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 9cbe9d4..782f446 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1256,11 +1256,10 @@ The following commands are available:
   (let ((info (assq category gnus-category-alist)))
     (gnus-edit-form
      (cadr info) (format "Editing the predicate for category %s" category)
-     (function
-      `(lambda (predicate)
-        (setcar (cdr (assq ',category gnus-category-alist)) predicate)
-        (gnus-category-write)
-        (gnus-category-list))))))
+     `(lambda (predicate)
+       (setf (cadr (assq ',category gnus-category-alist)) predicate)
+       (gnus-category-write)
+       (gnus-category-list)))))
 
 (defun gnus-category-edit-score (category)
   "Edit the score expression for CATEGORY."
@@ -1269,11 +1268,10 @@ The following commands are available:
     (gnus-edit-form
      (caddr info)
      (format "Editing the score expression for category %s" category)
-     (function
-      `(lambda (groups)
-        (setcar (cddr (assq ',category gnus-category-alist)) groups)
-        (gnus-category-write)
-        (gnus-category-list))))))
+     `(lambda (groups)
+       (setf (caddr (assq ',category gnus-category-alist)) groups)
+       (gnus-category-write)
+       (gnus-category-list)))))
 
 (defun gnus-category-edit-groups (category)
   "Edit the group list for CATEGORY."
@@ -1281,11 +1279,10 @@ The following commands are available:
   (let ((info (assq category gnus-category-alist)))
     (gnus-edit-form
      (cadddr info) (format "Editing the group list for category %s" category)
-     (function
-      `(lambda (groups)
-        (setcar (nthcdr 3 (assq ',category gnus-category-alist)) groups)
-        (gnus-category-write)
-        (gnus-category-list))))))
+     `(lambda (groups)
+       (setf (cadddr (assq ',category gnus-category-alist)) groups)
+       (gnus-category-write)
+       (gnus-category-list)))))
 
 (defun gnus-category-kill (category)
   "Kill the current category."