From 353288d9e3f8907f0e154b7fea50909c2f4c2b75 Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 1 Jun 2017 21:25:02 +0800 Subject: [PATCH] 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. --- lisp/gnus/gnus-search.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el index a0252d71560..4d3056dff51 100644 --- 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)))) -- 2.39.5