From: Lars Ingebrigtsen Date: Thu, 26 Dec 2013 22:13:28 +0000 (+0000) Subject: lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work in nnimap... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~177 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d96b72a59d42b641ff09782a76e5687ec2c47d12;p=emacs.git lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work in nnimap groups, too --- 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 + + * gnus-sum.el (gnus-summary-respool-query): Special-case nnimap so that + we get proper traces there, too. + 2013-12-26 Sean Connor (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"