Commit d96b72a5 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka

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

parent 3b8d5131
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
......
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment