[gnus git] branch master updated: n0-17-180-g83143ba =1= (gnus-request-thread): Add group argument and ensure search is in correct group.

       via  83143bac6a331c4e592fb7c7afab2a3b62cb3b22 (commit)
      from  8e28e1602c3603662c818ab122a5ce6d0108ccf3 (commit)


- Log -----------------------------------------------------------------
commit 83143bac6a331c4e592fb7c7afab2a3b62cb3b22
Author: Andrew Cohen <[email protected]>
Date:   Thu Jul 14 08:00:30 2011 -0400

    (gnus-request-thread): Add group argument and ensure search is in
    correct group.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fddd97..4f968de 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2011-07-14  Andrew Cohen  <[email protected]>
+
+	* 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.
+
 2011-07-10  Lars Magne Ingebrigtsen  <[email protected]>
 
 	* dgnushack.el (debbugs-gnu-summary-mode): Update compat names, too.
diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index ef15a47..b9b191c 100644
--- a/lisp/gnus-int.el
+++ b/lisp/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
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 798ae96..5a817e1 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -8970,7 +8970,7 @@ variable."
 	   'list gnus-newsgroup-headers
 	   (if (gnus-check-backend-function
 		'request-thread gnus-newsgroup-name)
-	       (gnus-request-thread header)
+	       (gnus-request-thread header gnus-newsgroup-name)
 	     (let* ((last (if (numberp limit)
 			      (min (+ (mail-header-number header)
 				      limit)
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 43a3cbd..ef5bee7 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1565,7 +1565,8 @@ textual parts.")
 (declare-function gnus-fetch-headers "gnus-sum"
 		  (articles &optional limit force-new dependencies))
 
-(deffoo nnimap-request-thread (header)
+(deffoo nnimap-request-thread (header &optional group server)
+  (when (nnimap-possibly-change-group group server)
   (let* ((id (mail-header-id header))
 	 (refs (split-string
 		(or (mail-header-references header)
@@ -1584,7 +1585,7 @@ textual parts.")
       (gnus-fetch-headers
        (and (car result) (delete 0 (mapcar #'string-to-number
 					   (cdr (assoc "SEARCH" (cdr result))))))
-       nil t))))
+       nil t)))))
 
 (defun nnimap-possibly-change-group (group server)
   (let ((open-result t))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog   |    9 +++++++++
 lisp/gnus-int.el |    7 ++++---
 lisp/gnus-sum.el |    2 +-
 lisp/nnimap.el   |    7 ++++---
 4 files changed, 18 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project