From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 18 May 2017 13:47:03 +0000 (+0800)
Subject: Fix bum namazu search command
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ae25496a1f7e44050f495eae3dca8b07f64ea15;p=emacs.git

Fix bum namazu search command

* lisp/gnus/gnus-search.el (gnus-search-indexed-search-command): Had
  named it incorrectly. Also switch to using nconc.
---

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 37fc197426e..886905e4625 100644
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1533,19 +1533,18 @@ fudges a relevancy score of 100."
     (setenv "LC_MESSAGES" "C")
     (cl-call-next-method)))
 
-(cl-defmethod search-indexed-search-command ((engine gnus-search-namazu)
-					     (qstring string)
-					     query &optional _groups)
+(cl-defmethod gnus-search-indexed-search-command ((engine gnus-search-namazu)
+						  (qstring string)
+						  query &optional _groups)
   (let ((max (alist-get 'limit query)))
     (with-slots (switches index-dir) engine
-      `("-q"				; don't be verbose
-	"-a"				; show all matches
-	"-s"				; use short format
-	,(if max (format "--max=%d" max) "")
-	,@switches
-	,qstring			; the query, in namazu format
-	,index-dir			; index directory
-	))))
+      (nconc
+       (list "-q"			; don't be verbose
+	     "-a"			; show all matches
+	     "-s") 			; use short format
+       (when max (list (format "--max=%d" max)))
+       switches
+       (list qstring index-dir)))))
 
 (cl-defmethod gnus-search-indexed-extract ((engine gnus-search-namazu))
   "Extract a single message result for Namazu.