1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00

nnir.el (nnir-run-imap): Allow sending IMAP search patterns directly.

This commit is contained in:
Andrew Cohen 2010-09-25 14:24:54 +00:00 committed by Katsumi Yamaoka
parent 6f33b4d7e3
commit cd178df250
2 changed files with 14 additions and 4 deletions

View File

@ -1,3 +1,8 @@
2010-09-25 Andrew Cohen <cohen@andy.bu.edu> (tiny change)
* nnir.el (nnir-run-imap): Allow sending IMAP search patterns
directly.
2010-09-25 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus.el (gnus-local-domain): Put gnus-local-domain back again, since

View File

@ -345,14 +345,16 @@
(gnus-declare-backend "nnir" 'mail)
(defvar nnir-imap-search-field "TEXT"
"The IMAP search item when doing an nnir search")
"The IMAP search item when doing an nnir search. To use raw
imap queries by default set this to \"\"")
(defvar nnir-imap-search-arguments
'(("Whole message" . "TEXT")
("Subject" . "SUBJECT")
("To" . "TO")
("From" . "FROM")
(nil . "HEADER \"%s\""))
("Head" . "HEADER \"%s\"")
(nil . ""))
"Mapping from user readable strings to IMAP search items for use in nnir")
(defvar nnir-imap-search-argument-history ()
@ -981,8 +983,11 @@ details on the language and supported extensions"
(message "Searching %s..." group)
(let ((arts 0)
(result
(nnimap-command "UID SEARCH %s"
(nnir-imap-make-query criteria qstring))))
(nnimap-command "UID SEARCH %s"
(if (string= criteria "")
qstring
(nnir-imap-make-query criteria qstring)
))))
(mapc
(lambda (artnum)
(push (vector group artnum 1) artlist)