From 057cc2e88b018d0b5c6dddaa0d4af0b6a81629f3 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Wed, 16 Oct 2019 13:46:42 +0800 Subject: [PATCH] * lisp/gnus/nnselect.el (nnselect-retrieve-headers): Use setf. --- lisp/gnus/nnselect.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5