diff options
author | Andrew Cohen <cohen@andy.bu.edu> | 2011-07-24 00:19:29 +0000 |
---|---|---|
committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-07-24 00:19:29 +0000 |
commit | 47f0b35ef3d1ac82846ba6e641ad783e0f378a6a (patch) | |
tree | 0ba9be026b6370319946b904549fbf4ddbf39118 /lisp/gnus/nnir.el | |
parent | 04c4b52e0ae4de02a3d961857906f8a35133ca36 (diff) | |
download | emacs-47f0b35ef3d1ac82846ba6e641ad783e0f378a6a.tar.gz |
Merge changes made in Gnus trunk.
nnir.el (nnir-search-thread): New function to make an nnir group based on a thread query.
gnus-sum.el (gnus-refer-thread-use-nnir): New variable to control use of nnir in thread referral.
(gnus-summary-refer-thread): Use it.
nnimap.el (nnimap-request-thread): Use it.
Diffstat (limited to 'lisp/gnus/nnir.el')
-rw-r--r-- | lisp/gnus/nnir.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index 9840dddcb66..e6420a4d7bb 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -289,6 +289,7 @@ is `(valuefunc member)'." (autoload 'nnimap-buffer "nnimap") (autoload 'nnimap-command "nnimap") (autoload 'nnimap-possibly-change-group "nnimap") + (autoload 'nnimap-make-thread-query "nnimap") (autoload 'gnus-registry-action "gnus-registry") (defvar gnus-registry-install)) @@ -1649,6 +1650,16 @@ server is of form 'backend:name'." (nnir-open-server server))) +(defun nnir-search-thread (header) + "Make an nnir group based on the thread containing the article header" + (let ((parm (list + (cons 'query + (nnimap-make-thread-query header)) + (cons 'criteria "") + (cons 'server (gnus-method-to-server + (gnus-find-method-for-group + gnus-newsgroup-name)))))) + (gnus-group-make-nnir-group nil parm))) ;; unused? (defun nnir-artlist-groups (artlist) |