From: ueno <ueno>
Date: Wed, 1 Dec 1999 03:38:14 +0000 (+0000)
Subject: * lisp/gnus-agent.el (gnus-category-edit-predicate): Expand `setf'
X-Git-Tag: t-gnus-6_13_3-10~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b76ba0439872f45741c9ab8cfa7ad9d632c5a0f0;p=elisp%2Fgnus.git-

* lisp/gnus-agent.el (gnus-category-edit-predicate): Expand `setf'
appears in the backquoted form.
(gnus-category-edit-score): Ditto.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 7022a87..69d53b3 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1248,7 +1248,7 @@ The following commands are available:
     (gnus-edit-form
      (cadr info) (format "Editing the predicate for category %s" category)
      `(lambda (predicate)
-	(setf (cadr (assq ',category gnus-category-alist)) predicate)
+	(setcar (cdr (assq ',category gnus-category-alist)) predicate)
 	(gnus-category-write)
 	(gnus-category-list)))))
 
@@ -1260,7 +1260,7 @@ The following commands are available:
      (caddr info)
      (format "Editing the score expression for category %s" category)
      `(lambda (groups)
-	(setf (caddr (assq ',category gnus-category-alist)) groups)
+	(setcar (nthcdr 2 (assq ',category gnus-category-alist)) groups)
 	(gnus-category-write)
 	(gnus-category-list)))))
 
@@ -1271,7 +1271,7 @@ The following commands are available:
     (gnus-edit-form
      (cadddr info) (format "Editing the group list for category %s" category)
      `(lambda (groups)
-	(setf (cadddr (assq ',category gnus-category-alist)) groups)
+	(setcar (nthcdr 3 (assq ',category gnus-category-alist)) groups)
 	(gnus-category-write)
 	(gnus-category-list)))))