summaryrefslogtreecommitdiff
path: root/lisp/gnus/gnus-int.el
diff options
context:
space:
mode:
authorAndrew Cohen <cohen@andy.bu.edu>2011-07-14 14:19:53 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2011-07-14 14:19:53 +0000
commit0c1362863ddaadf0176c951b9bbdb24514dfb2f4 (patch)
tree82772f817e42631503b42d98fed3b333824721f5 /lisp/gnus/gnus-int.el
parentfc233c9d7e2d39eb8f3728a9dd7dee35c81ce305 (diff)
downloademacs-0c1362863ddaadf0176c951b9bbdb24514dfb2f4.tar.gz
Merge changes made in Gnus trunk.
nnimap.el (nnimap-request-thread): Ensure search is performed in correct group. gnus-int.el (gnus-request-thread): Add group argument. gnus-sum.el (gnus-request-thread): Use it.
Diffstat (limited to 'lisp/gnus/gnus-int.el')
-rw-r--r--lisp/gnus/gnus-int.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index ef15a479892..b9b191cd09c 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -516,11 +516,12 @@ If BUFFER, insert the article in that group."
article (gnus-group-real-name group)
(nth 1 gnus-command-method) buffer)))
-(defun gnus-request-thread (header)
+(defun gnus-request-thread (header group)
"Request the headers in the thread containing the article specified by HEADER."
- (let ((gnus-command-method (gnus-find-method-for-group gnus-newsgroup-name)))
+ (let ((gnus-command-method (gnus-find-method-for-group group)))
(funcall (gnus-get-function gnus-command-method 'request-thread)
- header)))
+ header
+ (gnus-group-real-name group))))
(defun gnus-warp-to-article ()
"Warps from an article in a virtual group to the article in its