* lisp/gnus/nnselect.el (nnselect-retrieve-headers): Use setf.

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 04d88c97939f11639187c0a1fca1f2ddc47dc0fb..7f44f3b8d13c998ade710383727642fb7e96d4d1 100644 (file)
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -294,7 +294,7 @@ If this variable is nil, or if the provided function returns nil,
                                   (mail-header-number novitem)))
                       (art (car (rassq artno artids))))
                  (when art
-                   (mail-header-set-number novitem art)
+                   (setf (mail-header-number novitem) art)
                    (push novitem headers))
                  (forward-line 1)))))
          (setq headers