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:
parent
6f33b4d7e3
commit
cd178df250
@ -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
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user