[Emacs-diffs] trunk r115760: lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work in nnimap groups, too

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 115760
revision-id: address@hidden
parent: address@hidden
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2013-12-26 22:13:28 +0000
message:
  lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work 
in nnimap groups, too
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-sum.el          gnussum.el-20091113204419-o5vbwnq5f7feedwu-1137

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-12-26 00:59:01 +0000
+++ b/lisp/gnus/ChangeLog       2013-12-26 22:13:28 +0000
@@ -1,3 +1,8 @@
+2013-12-26  Lars Ingebrigtsen  <address@hidden>
+
+       * gnus-sum.el (gnus-summary-respool-query): Special-case nnimap so that
+       we get proper traces there, too.
+
 2013-12-26  Sean Connor  <address@hidden>  (tiny change)
 
        * gnus-sum.el (gnus-summary-enter-digest-group): Don't discard previous

=== modified file 'lisp/gnus/gnus-sum.el'
--- a/lisp/gnus/gnus-sum.el     2013-12-26 00:59:01 +0000
+++ b/lisp/gnus/gnus-sum.el     2013-12-26 22:13:28 +0000
@@ -10664,7 +10664,22 @@
   (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"