procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
bug#51778

* lisp/gnus/gnus-search.el: All messaging should be done via
`gnus-message'.
This commit is contained in:
Eric Abrahamsen 2021-12-03 09:19:31 -08:00
parent d0997eefea
commit c9186b1b0b
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/gnus/gnus-search.el
View file

@ -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))))