From 63618b0580168570c978502ac42e54ed2251292d Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 1 Dec 1999 03:39:34 +0000
Subject: [PATCH] * lisp/gnus-sum.el (gnus-data-set-header): Expand `setf'
 appears in the backquoted form.

---
 lisp/gnus-sum.el |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 25801c6..b9dba33 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2112,7 +2112,7 @@ The following commands are available:
   `(nth 3 ,data))
 
 (defmacro gnus-data-set-header (data header)
-  `(setf (nth 3 ,data) ,header))
+  `(setcar (nthcdr 3 ,data) ,header))
 
 (defmacro gnus-data-level (data)
   `(nth 4 ,data))
-- 
1.7.10.4