From: Daniel Semyonov <cmstr@dsemy.com>
Date: Sat, 1 May 2021 14:03:07 +0000 (+0300)
Subject: Mairix: use 'mairix-search-options' as documented
X-Git-Tag: emacs-28.0.90~2465
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b00796ee36bb2ecc9a853ef97e4b7f8174e4e3b8;p=emacs.git

Mairix: use 'mairix-search-options' as documented

* lisp/net/mairix.el (mairix-call-mairix): Append
'mairix-search-options' to the arguments passed to mairix.

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/net/mairix.el b/lisp/net/mairix.el
index adc41b60683..e1d35c2a85a 100644
--- a/lisp/net/mairix.el
+++ b/lisp/net/mairix.el
@@ -531,8 +531,11 @@ The mail program is given by `mairix-mail-program'."
 If FILE is nil, use default.  If THREADS is non-nil, also return
 whole threads.  Function returns t if messages were found."
   (let* ((commandsplit (split-string mairix-command))
-	 (args (cons (car commandsplit)
-		     `(nil ,(get-buffer-create mairix-output-buffer) nil)))
+	 (args (cons
+                (car commandsplit)
+		(append
+                 `(nil ,(get-buffer-create mairix-output-buffer) nil)
+                 mairix-search-options)))
 	 rval)
     (with-current-buffer mairix-output-buffer
       (erase-buffer))