Fix search

Remove filter option from diatheke search execution

bible-mode.el

@@ -695,9 +695,11 @@ OT/NT etc. If that module doesn't have that verse...???"
   (let ((module (or module bm-module)))
     (with-temp-buffer
       (let ((args (list "diatheke" nil (current-buffer) t "-b" module)))
-	(if filter
+	(if searchtype
+	    (setq filter nil)
+	  (progn
 	    (setq filter (concat filter diatheke-filter-options))
-	    (setq filter diatheke-filter-options))
+	    (setq filter diatheke-filter-options)))
 	(when filter (setq args (append args (list "-o" filter))))
 	(when searchtype
 	  (setq args (append args (list "-s" (pcase searchtype ("lucene" "lucene") ("phrase" "phrase"))))))