procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lars Ingebrigtsen 2013-12-26 22:13:28 +00:00 • committed by Katsumi Yamaoka
parent 3b8d5131a3
commit d96b72a59d
2 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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

17
lisp/gnus/gnus-sum.el
View file

@ -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"