X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=b9dba33125ed2bb64f4ec602a56529998714d3b9;hb=63618b0580168570c978502ac42e54ed2251292d;hp=25801c6a648053ce7b8f0b376972f8437a68f78f;hpb=b76ba0439872f45741c9ab8cfa7ad9d632c5a0f0;p=elisp%2Fgnus.git-

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))