From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Wed, 16 Oct 2019 05:46:42 +0000 (+0800)
Subject: * lisp/gnus/nnselect.el (nnselect-retrieve-headers): Use setf.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=057cc2e88b018d0b5c6dddaa0d4af0b6a81629f3;p=emacs.git

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

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 04d88c97939..7f44f3b8d13 100644
--- 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