From b76ba0439872f45741c9ab8cfa7ad9d632c5a0f0 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 1 Dec 1999 03:38:14 +0000 Subject: [PATCH] * lisp/gnus-agent.el (gnus-category-edit-predicate): Expand `setf' appears in the backquoted form. (gnus-category-edit-score): Ditto. --- lisp/gnus-agent.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))))) -- 1.7.10.4