[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115760: lisp/gnus/gnus-sum.el (gnus-summary-respool
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] trunk r115760: lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work in nnimap groups, too |
Date: |
Thu, 26 Dec 2013 22:13:26 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115760: lisp/gnus/gnus-sum.el (gnus-summary-respool-query): Make split tracing work in nnimap groups, too,
Katsumi Yamaoka <=