lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work in nnimap groups, too

2 files changed, 21 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index d0e0472c04e..76c1b2aebe0 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-26  Lars Ingebrigtsen  <larsi@gnus.org>
+
+        * gnus-sum.el (gnus-summary-respool-query): Special-case nnimap so that
+        we get proper traces there, too.
+
 2013-12-26  Sean Connor  <sconnor005@allyinics.org>  (tiny change)
 
         * gnus-sum.el (gnus-summary-enter-digest-group): Don't discard previous
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index e86a624cc73..49e5aa7fabf 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/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"