[gnus git] branch master updated: m0-7-275-g934f25f =1= Make split tracing work in nnimap groups, too

       via  934f25f8d8801afe315722fd0b0b4ea14bcb1534 (commit)
      from  9ab265006b5db7709fed76a86788a91704c18895 (commit)


- Log -----------------------------------------------------------------
commit 934f25f8d8801afe315722fd0b0b4ea14bcb1534
Author: Lars Ingebrigtsen <[email protected]>
Date:   Thu Dec 26 17:39:39 2013 +0100

    Make split tracing work in nnimap groups, too
    
    * gnus-sum.el (gnus-summary-respool-query): Special-case nnimap so that
    we get proper traces there, too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e6eef4..eb7031f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-26  Lars Ingebrigtsen  <[email protected]>
+
+	* gnus-sum.el (gnus-summary-respool-query): Special-case nnimap so that
+	we get proper traces there, too.
+
 2013-12-26  Sean Connor  <[email protected]>  (tiny change)
 
 	* gnus-sum.el (gnus-summary-enter-digest-group): Don't discard previous
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index e86a624..49e5aa7 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -10664,7 +10664,22 @@ groups."
   (let (gnus-mark-article-hook)
     (gnus-summary-select-article)
     (with-current-buffer gnus-original-article-buffer
-      (let ((groups (nnmail-article-group 'identity trace)))
+      (let ((groups
+	     (if (eq (car (gnus-find-method-for-group gnus-newsgroup-name))
+		     'nnimap)
+		 ;; nnimap has its own splitting variables.
+		 (let ((nnmail-split-methods
+			(cond
+			 ((eq nnimap-split-methods 'default)
+			  nnmail-split-methods)
+			 (nnimap-split-methods
+			  nnimap-split-methods)
+			 (nnimap-split-fancy
+			  'nnmail-split-fancy)))
+		       (nnmail-split-fancy (or nnimap-split-fancy
+					       nnmail-split-fancy)))
+		   (nnmail-article-group 'identity trace))
+	       (nnmail-article-group 'identity trace))))
 	(unless silent
 	  (if groups
 	      (message "This message would go to %s"

-----------------------------------------------------------------------
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   |    5 +++++
 lisp/gnus-sum.el |   17 ++++++++++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)

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