summaryrefslogtreecommitdiff
path: root/lisp/gnus/nnir.el
diff options
context:
space:
mode:
authorAndrew Cohen <cohen@andy.bu.edu>2011-07-24 00:19:29 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-07-24 00:19:29 +0000
commit47f0b35ef3d1ac82846ba6e641ad783e0f378a6a (patch)
tree0ba9be026b6370319946b904549fbf4ddbf39118 /lisp/gnus/nnir.el
parent04c4b52e0ae4de02a3d961857906f8a35133ca36 (diff)
downloademacs-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.el11
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)