Use gnus-message instead of plain message in gnus-search

bug#51778

* lisp/gnus/gnus-search.el: All messaging should be done via
`gnus-message'.

diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el
index 315735880465ea9fccc02fd38b654965561200ec..bce5d57c521ab0cbc7dbc157008359065793f34e 100644 (file)
--- a/lisp/gnus/gnus-search.el
+++ b/lisp/gnus/gnus-search.el
@@ -1018,7 +1018,7 @@ Responsible for handling and, or, and parenthetical expressions.")
          (single-search (gnus-search-single-p query))
          (grouplist (or groups (gnus-search-get-active srv)))
          q-string artlist group)
-      (message "Opening server %s" server)
+      (gnus-message 7 "Opening server %s" server)
       (gnus-open-server srv)
       ;; We should only be doing this once, in
       ;; `nnimap-open-connection', but it's too frustrating to try to
@@ -1062,7 +1062,7 @@ Responsible for handling and, or, and parenthetical expressions.")
        (when (nnimap-change-group
               (gnus-group-short-name group) server)
          (with-current-buffer (nnimap-buffer)
-           (message "Searching %s..." group)
+           (gnus-message 7 "Searching %s..." group)
            (let ((result
                   (gnus-search-imap-search-command engine q-string)))
              (when (car result)
@@ -1075,7 +1075,7 @@ Responsible for handling and, or, and parenthetical expressions.")
                              (vector group artn 100))))
                        (cdr (assoc "SEARCH" (cdr result))))
                       artlist))))
-           (message "Searching %s...done" group))))
+           (gnus-message 7 "Searching %s...done" group))))
       (nreverse artlist))))
 
 (cl-defmethod gnus-search-imap-search-command ((engine gnus-search-imap)
@@ -1330,8 +1330,8 @@ Returns a list of [group article score] vectors."
       (erase-buffer)
 
       (if groups
-         (message "Doing %s query on %s..." program groups)
-       (message "Doing %s query..." program))
+         (gnus-message 7 "Doing %s query on %s..." program groups)
+       (gnus-message 7 "Doing %s query..." program))
       (setq proc (apply #'start-process (format "search-%s" server)
                        buffer program cp-list))
       (while (process-live-p proc)
@@ -1837,8 +1837,8 @@ Assume \"size\" key is equal to \"larger\"."
      (mapcar (lambda (x)
               (let ((group x)
                     artlist)
-                (message "Searching %s using find-grep..."
-                         (or group server))
+                (gnus-message 7 "Searching %s using find-grep..."
+                              (or group server))
                 (save-window-excursion
                   (set-buffer buffer)
                   (if (> gnus-verbose 6)
@@ -1893,8 +1893,8 @@ Assume \"size\" key is equal to \"larger\"."
                          (vector (gnus-group-full-name group server) art 0)
                          artlist))
                       (forward-line 1)))
-                  (message "Searching %s using find-grep...done"
-                           (or group server))
+                  (gnus-message 7 "Searching %s using find-grep...done"
+                                (or group server))
                   artlist)))
             grouplist))))