Don't use nconc

* lisp/gnus/gnus-search.el (gnus-search-indexed-search-command): Use
  append instead of nconc, nconc modifies destructively and makes a
  mess.

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index a0252d715601e95c6e8cf606988ab2e4dd2ab58a..4d3056dff51ccf984581ecc9366da677d5eb81e6 100644 (file)
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1601,7 +1601,7 @@ fudges a relevancy score of 100."
                                                  query &optional _groups)
   (let ((max (alist-get 'limit query)))
     (with-slots (switches index-dir) engine
-      (nconc
+      (append
        (list "-q"                      ; don't be verbose
             "-a"                       ; show all matches
             "-s")                      ; use short format
@@ -1871,7 +1871,7 @@ Assume \"size\" key is equal to \"larger\"."
                                                  (qstring string)
                                                  query &optional _groups)
   (with-slots (switches config-file) engine
-    (nconc `("--rcfile" ,config-file "-r")
+    (append `("--rcfile" ,config-file "-r")
           switches
           (when (alist-get 'thread query) (list "-t"))
           (list qstring))))